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Preface 


This book is intended as both a source and a reference for the 8086/8088 
assembly language programmer. It contains a collection of useful sub- 
routines described in a standard format and accompanied by extensive 
documentation. All subroutines employ standard parameter passing 
techniques and follow the rules from the most popular assembler. The 
documentation specifies the procedure, parameters, results, execution 
time, and memory usage; it also includes at least one example. The 
routines will also run on related microprocessors such as the 80188, 
80186, 80286, 80376, 80386, and 80486. 

The collection emphasizes common tasks that occur in many applica- 
tions. These tasks include code conversion, array manipulation, arith- 
metic, bit manipulation, shifting functions, string manipulation, data 
structure management, sorting, and searching. We have also provided 
examples of input/output (I/O) routines, interrupt service routines, and 
initialization routines for common family chips such as parallel inter- 
faces, serial interfaces, and timers. You should be able to use these 
programs as subroutines in actual applications and as starting points for 
more complex programs. 

This book is intended for the person who wants to use assembly 
language immediately, rather than just learn about it. The reader could 
be 


@ An engineer, technician, or programmer who must write assembly 
language programs for a design project. 


e A microcomputer or personal computer user who wants to write an 
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I/O driver, a diagnostic program, a utility, or a systems program in 
assembly language. 


@ An experienced assembly language programmer who needs a quick 
review of techniques for the 8086, 8088, or related microprocessor. 


e A system designer who needs a specific routine or technique for 
immediate use. 


e A high-level language programmer who must debug or optimize 
programs at the assembly level, link a program written in a high-level 
language to one written in assembly language, or move the machine- 
dependent part of a program to a new computer. 


e A maintenance programmer who must understand quickly how 
specific assembly language programs work. 


e A microcomputer owner who wants to understand the operating 
system of a particular computer, or who wants to modify standard I/O 
routines or systems programs. 


e A student, hobbyist, or teacher who wants to see examples of working 
assembly language programs. 


This book should save the reader time and effort. He or she should 
not have to write, debug, test, or optimize standard routines, or search 
through a textbook for particular examples. The reader should instead 
be able to obtain easily the specific information, technique, or routine 
he or she needs. 

Obviously, a book with such an aim demands feedback from its 
readers. We have, of course, tested all programs thoroughly and docu- 
mented them carefully. If you find any errors, please inform the pub- 
lisher. If you have suggestions for better methods or for additional 
topics, routines, or programming hints, please tell us about them. We 
have used our programming experience to develop this book, but we 
need your help to improve it. We would greatly appreciate your com- 
ments, criticisms, and suggestions. 


Nomenclature 


We have used the following nomenclature in this book to describe the 
architecture of the 8086/8088 processors and to specify operands. 


8086 architecture 
Figure N-1 shows the 8086’s registers. The byte-length (8-bit) ones are: 


AH(more significant byte of accumulator AX) 

AL (less significant byte of accumulator AX, accumulator for byte- 
length operations) 

BH (more significant byte of base register BX) 

BL (less significant byte of base register BX) 

CH (more significant byte of count register CX) 

CL (less significant byte of count register CX) 

DH(more significant byte of data register DX) 

DL (less significant byte of data register DL) 


The 8086’s word-length (16-bit) data registers are: 


AX(word-length accumulator) 
BP (base pointer) 

CX (count) 

DI (destination index) 

DX (data) 

For FL (flags) 

SI (source index) 

SP (stack pointer) 


XII Assembly language subroutines for the 8086 


AX 
BX 
CX 
DX 


SP 
BP 
S| 
DI 


CS 
DS 
SS 
ES 


IP 


STATUS WORD 
OR FLAGS 


DATA REGISTERS 





STACK POINTER 
BASE POINTER 
SOURCE INDEX 
DESTINATION INDEX 


SEGMENT REGISTERS 


dh 
a 
oO 


CODE 
DATA 
STACK 
EXTRA 


INSTRUCTION POINTER AND FLAGS 


POINTER 
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Its word-length segment registers (used only in calculating memory 
addresses) are: 


CS (code segment) 

DS (data segment) 

ES (extra data segment) 
SS (stack segment) 


The FL (flag) register consists of bits with independent functions and 
meanings, arranged as shown in Figure N-2. 


STATUS FLAGS: 
CARRY 

PARITY 

AUXILIARY CARRY 
ZERO 

SIGN 

OVERFLOW 


srarve woro: [UU Dor oe LD SL BW 


CONTROL FLAGS: 
TRAP FLAG 
INTERRUPT ENABLE. 
DIRECTION FLAG 


INTEL RESERVED 
Figure N-2 8086 flag (F or FL) register 


The 8086’s flags (see Figure N-2) are: 
AC AUXILIARY (HALF) CARRY, i.e., carry from bit 3 of a byte 


C CARRY 

D DIRECTION (autoincrement or autodecrement in string or block 
operations) 

I INTERRUPT ENABLE 

O OVERFLOW 

P (EVEN) PARITY 

S  .SIGN 

T TRAP (single-step) 

Z ZERO 

8086 Assembler 

Delimiters include 

space After an operation code 

, (comma) Between entries in the operand (address) field 

[ ] Around addresses to be used indirectly or as indexes (as a 


substitute for +) 
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; Before a comment 
After a label associated with an instruction statement, 
between segment register designations or segment numbers 
and address register designations or address values within a 
segment, and between segment register designations and 
their assigned values 

? Around ASCII characters 


Assembler directives (pseudo-operations) include 


DB 
DD 
DQ 
DT 


DW 
END 
ENDS 
EQU 
ORG 


Define byte-length (8-bit) data 

Define double-word-length (32-bit) data 

Define quad-word-length (64-bit) data 

Define 10-byte-length (80-bit) data for use with 8087 
numeric data coprocessor as an IEEE standard 754 floating 
point number 

Define word-length (16-bit) data 

End of program 

End of logical segment 

Equate; define the attached label 

Set (location counter to) origin; place subsequent object code 
starting at the specified address within the current segment 


SEGMENT Start of logical segment 


Designations include 


Number Systems: 

B (suffix) | Binary 

D (suffix) | Decimal 

H (suffix) |§ Hexadecimal 
QO (suffix) Octal 


The default mode is decimal; hexadecimal numbers must start with a digit 
(i.e. you must add a leading zero if a number starts with a letter). 


Others: 


BYTE PTR 
DUP 


Indicates a byte-length (8-bit) memory reference 
Repeated initialization, e.g., 3 DUP (2) indicates 3 
items, each with a value of 2 


DWORD PTR Indicates a double-word length (32-bit) memory ref- 


FAR 


NEAR 


erence 
Label type, indicating a label that will be accessed from 
another segment 

Label type, indicating a label that will be accessed from 
within the same segment 
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OFFSET Offset of a variable or label from the base of the 
segment in which it is defined 

WORD PTR eeIndicates a word-length (16-bit) memory reference 

? Indeterminate initialization 

$ Current value of location (program) counter 


Defaults include 


Unmarked values or expressions are taken to be immediate data (not 
addresses). 

Unmarked numbers are decimal. 

Unmarked memory references are assumed to be either byte-length or 
word-length according to the length of the register involved. An opera- 
tion that does not involve a register must have its length indicated with a 
BYTE PTR or WORD PTR operator; there is no default. 

Default segment registers are: 


e [BX], [DI], and [SI], relative offsets from them, and combinations of 
them default to segment register DS. 


@ [BP], relative offsets from it, and combinations involving it default to 
segment register SS. 


® Operations that reference the stack (i.e., PUSH, POP, CALL, INT, 
and IRET) always use SS and cannot be overriden. 


e String instructions default to segment register ES for operands 
pointed to by DI. This cannot be overriden. 


@ All instruction fetches are relative to segment register CS and cannot 
be overriden. 


Introduction 


Each description of a subroutine contains the following information: 
@ Purpose 

@ Procedure 

® Registers used 

e@ Execution time 

@ Program size 

@ Data memory required 
@ Special cases 

@ Entry conditions 

@ Exit conditions 


e Examples 


The program listing repeats this information and provides section-by- 


section comments. 


We have made each routine as general as possible. This is difficult for 
the I/O and interrupt service routines in Chapters 8 and 9 since they are 
always computer-dependent in practice. Our approach has been to limit 
the dependence to generalized input and output handlers and interrupt 
managers. We have drawn specific examples from the popular Microsoft 
MS-DOS operating system running on an IBM PC. The general princi- 


ples apply to other 8086/8088-based computers as well. 
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All routines use the following parameter passing techniques, derived 
largely from the PL/M procedural interface defined by Intel: 


1. A single data parameter is passed in register AX (16 bits) or AL (8 
bits). 


2. Asingle address parameter within the current data segment is passed 
in register BX. 


3. Larger numbers of parameters are passed on the stack, either directly 
or indirectly. 


We have generally assumed Intel’s PL/M SMALL memory model as 
described in An Introduction to ASM86 (Intel Corporation, Santa Clara, 
CA, 1981). This model assumes: 


1. A single fixed code segment. The CS register thus is a constant, so 
jumps and calls need change only the instruction pointer. 


2. A single fixed data and stack segment. The DS and SS registers are 
thus constants with the same value. 


In this model, all subroutines are entered using intrasegment CALL 
instructions and exited using intrasegment RET instructions. That is, the 
return address is always a short (16-bit) pointer stored at the top of the 
stack. All data and stack addresses, as well as other pointers, are also 
16-bit offsets within a segment. We have assumed that the ES and DS 
registers generally have the same value as well, so that we can use all 
string instructions without setting ES explicitly. Furthermore, we have 
followed Intel’s PL/M procedural convention whereby all routines pre- 
serve the BP, CS, DS, SP, and SS registers. The subroutines can be 
modified easily to satisfy other memory models involving multiple code 
or data segments. 

Where there have been trade-offs between execution time and memory 
usage, we have chosen to minimize execution time. For example, we have 
not used the multiple-bit shift instructions since they are slower than 
repeated single-bit shifts although they occupy less memory. We have 
also chosen to minimize repetitive calculations. For example, consider 
array indexing. The number of bytes between the starting addresses of 
elements differing only by one in a particular subscript (known as the size 
of that subscript) depends on the number of bytes per element and the 
bounds of the array. We can, therefore, calculate the sizes of all subs- 
cripts and use them as parameters in indexing routines. This saves us from 
having to recalculate them each time a given array is indexed. 

We have specified the execution times for short routines. For long 
routines, we provide an approximate execution time. The execution 
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time of programs with many branches obviously depends on which path 
the computer follows. Other complicating factors include the time 
required to fill the instruction pipeline, memory management (segment 
register) overhead, and the dependence of branch execution times on 
whether a branch actually occurs. Thus, a precise execution time is often 
impossible to define. The documentation always contains at least one 
typical example showing an approximate or maximum execution time. 
The execution times also do not consider: 


@ Extra fetch cycles required by the 8088 because of its shorter pipeline 
and narrower data bus. 


e Extra cycles required by the 8086 to fetch misaligned data words (i.e. 
words starting at odd addresses). 


Our philosophy on error indicators and special cases has been the 
following: 


1. Routines should provide an easily tested indicator (such as the 
Carry flag) of whether any errors or exceptions have occurred. More 
complex routines should return a status byte or result code. The com- 
mon convention (established in UNIX and other operating systems) is 
for a zero value to indicate successful completion and other values to 
indicate types of errors. 


2. ‘Trivial cases, such as no elements in an array or strings of zero 
length, should result in immediate exits with minimal effect on the 
underlying data. 


3. Misspecified data (such as a maximum string length of zero or an 
index beyond the end of an array) should result in immediate exits with 
minimal effect on the underlying data. 


4. The documentation should include a summary of errors and excep- 
tions (under the heading ‘Special cases’). 


5. Exceptions that are convenient for the user (such as deleting more 
characters than could possibly be left in a string rather than counting the 
precise number) should be handled reasonably, but should still be 
indicated as errors. 


Obviously, no method of handling errors or exceptions can ever be 
completely consistent or well-suited to all applications. Our approach is 
that a set of standard subroutines must deal with this issue, rather than 
ignoring it or assuming that the user will always provide properly for- 
matted data. 


7 Code conversion 


1A_ Binary to BCD conversion 
(BN2BCD) 





Converts one byte of binary data to two bytes of BCD data. 


Procedure The program first divides the original data by 100 to obtain 
the hundreds digit, then divides the remainder by 10 to obtain the tens 
digit, and finally shifts the tens digit left four positions and combines it 
with the ones digit. 





Entry conditions 
Binary data in AL 


Exit conditions 
BCD data in AX 





Examples 


1. Data: [AL] = 6Dj¢ (109 decimal) 
Result: [AX] = 010916 


we Me Me Me Be We Me Me Ne Ne Bo Ns Vs Vs We Woe Ve Ve Vs We Ne Ve Ne 
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2. Data: [AL] = B7j6 (183 decimal) 
Result: [AX] = 018316 





Registers used AX, BX, F 


Execution time 220 cycles maximum 


Program size 25 bytes 


Data memory required None 





Title: Binary to BCD Conversion 
Name: BN2BCD 
Purpose: Converts one byte of binary data to two 


bytes of BCD data 


Entry: Register AL = Binary data 
Exit: Register AX = BCD data 
Registers Used: AX ,BX,F 
Time: 220 cycles maximum 
Size: Program 25 bytes 

BN2BCD: 


7 
;CALCULATE 100'S DIGIT 
;DIVIDE DATA BY 100 


a 

SUB AH,AH ;EXTEND 8-BIT DATA TO 16 BITS 
MOV BL,100 ;DIVIDE BY 100 

DIV BL 

MOV BH,AL ;SAVE QUOTIENT AS 100'S DIGIT 


; | 
;CALCULATE TENS AND ONES DIGITS 
;DIVIDE REMAINDER BY 10 


we “Ws Ns Ne Ne 


SC1A: 


1A Binary to BCD conversion (BN2BCD) 


wv 

MOV AL,AH 7NEW DIVIDEND = OLD REMAINDER 
SUB AH,AH 7EXTEND REMAINDER TO 16 BITS 
MOV BL,10 ;DIVIDE BY 10 

DIV BL ,QUOTIENT IS 10'S DIGIT, 


7 REMAINDER IS 1'S DIGIT 


7 
7 COMBINE 1'S AND 10'S DIGITS 
;SHIFT 10'S DIGIT LEFT 4 BITS AND ADD IT TO 1'S DIGIT 


a 

SHL AL,1 ;SHIFT 10'S DIGIT LEFT 4 BITS 

SHL AL,1 7NOTE THIS IS MUCH FASTER THAN 

SHL AL,1 7  SHL AL,CL 

SHL AL,1 

ADD AL,AH zADD 1'S DIGIT, SHIFTED 10'S DIGIT 
MOV AH,BH 7GET 100'S DIGIT 

RET 


SAMPLE EXECUTION 


7CONVERT OA HEXADECIMAL TO 10 BCD 


MOV AL,QAH 

CALL BN2BCD 7AX = 0010H CAH = 00, AL = 10H) 
7CONVERT FF HEXADECIMAL TO 255 BCD 

MOV AL,OFFH 

CALL BN2BCD 7AX = 0255H CAH = O02, AL = 55H) 
7CONVERT O HEXADECIMAL TO O BCD 

SUB AL,AL 

CALL BN2BCD 7AX = 0000 CAH = 00, AL = 00) 


END 
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1B BCD to binary conversion 
(BCD2BN) 


Converts one byte of BCD data to one byte of binary data. 


Procedure The program masks off the more significant digit and 
multiplies it by 10 using shifts. The program then adds the product to the 
less significant digit. We do not use MUL to multiply because of its long 
execution time. 


Entry conditions 
BCD data in AL 


Exit conditions 
Binary data in AL 


Examples 


1. Data: [AL] = 9916 
Result: [AL] = 6316 = 9910 


2. Data: [AL] = 2316 
Result: [AL] = 1716 = 2310 


Registers used AX,BL,F 


Execution time 31 cycles 


Program size 19 bytes 


Data memory required None 


we Me Ne Ye Bs Ne We Vs Ws We Ve Ne Ve Ve Ne Ne Ne Vs Vs Ns Ne Ns Ne 
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Title: BCD to Binary Conversion 
Name: BCD2BN 
Purpose: Converts one byte of BCD data to one 


byte of binary data 


Entry: Register AL = BCD data 
Exit: Register AL = Binary data 
Registers Used: AX, BL, F 

Time: 31 cycles 

Size: Program 19 bytes 


BCD2BN: 


ee Ws Ne Ns Ns 


SC1B: 


, 
7MULTIPLY UPPER DIGIT TIMES TEN BY SHIFTING 


a 

MOV BL,AL 7SAVE ORIGINAL BCD VALUE 

AND AL,OFOH 7MASK OFF UPPER DIGIT 

SHR AL,1 ,CALCULATE UPPER DIGIT TIMES 8 


7REMEMBER DIGIT IN UPPER 4 BITS 
7 IS EQUIVALENT TO DIGIT VALUE 
, MULTIPLIED BY 16 


MOV AH,AL 7SAVE UPPER DIGIT TIMES 8 
SHR AL,1 7CALCULATE UPPER DIGIT TIMES 2 
SHR AL,1 7THIS IS UPPER DIGIT TIMES 8 

, DIVIDED BY 4 (2 RIGHT SHIFTS) 
ADD AL,AH 7CALCULATE UPPER DIGIT TIMES 10 


, USING 10 = 8 + 2 


, 
7ADD PRODUCT TO LOWER DIGIT 


a 

AND BL,OFH 7MASK OFF LOWER DIGIT 

ADD AL,BL 7ADD LOWER DIGIT TO PRODUCT 
RET 


SAMPLE EXECUTION 


;CONVERT O BCD TO O HEXADECIMAL 
SUB AL,AL 


10 
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CALL BCD2BN zAL = 00 

7CONVERT 99 BCD TO 63 HEXADECIMAL 

MOV AL,99H 

CALL BCD2BN 7AL = 63H 
7CONVERT 23 BCD TO 17 HEXADECIMAL 

MOV AL,23H 

CALL BCD2BN 7AL = 17H 


END 
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1C_ Binary to hexadecimal ASCII conversion 
(BN2HEX) 


Converts one byte of binary data to two hexadecimal digits represented 
as ASCII characters. 


Procedure The program masks off each hexadecimal digit separately 
and converts it to its ASCII equivalent. This involves a simple addition 
of 3016 (ASCII 0) if the digit is decimal. If the digit is non-decimal, we 
must add an extra 7 to bridge the gap between ASCII 9 (3916) and 
ASCII A (4146). 


Entry conditions 
Binary data in AL 


Exit conditions 


ASCII version of more significant hexadecimal digit in AH 
ASCII version of less significant hexadecimal digit in AL 


Examples 


1. Data: [AL] = FB. 
Result: !AH] = 4616 (ASCII F) 
[AL] = 4216 (ASCII B) 


2. Data: [AL] = 59%. 
Result: [AH] = 3516 (ASCII 5) 
[AL] = 3916 (ASCII 9) 


Registers used AX,F 


Execution time 75 cycles minus 8 cycles for each non-decimal digit 


Program size 29 bytes 


12 


Titl 
Name 


Purp 


Exit 


we We We Ns Ns Ne Ne We Ns Ws Re We Ns We Vs Vs Vs Ns Ns Ns Ns Vs Be Va 


BN2HEX: 


ADASCH: 


ADASCL: 


we Ne Ne Ne Ne 
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Data memory required None 


e: 


ose: 


Entry: 


Registers Used: 
Time: 


Size: 


Binary to Hexadecimal ASCII 
BN2HEX 


Converts one byte of binary data to two 
ASCII characters 


Register AL = Binary data 


Register AH = ASCII more significant digit 
Register AL ASCII less significant digit 


AX, F 
Approximately 75 cycles 


Program 29 bytes 


’ 
7CONVERT MORE SIGNIFICANT DIGIT TO ASCII 


a 

MOV 
SHR 
SHR 
SHR 
SHR 
CMP 
JBE 
ADD 


ADD 


AH,AL 7SAVE ORIGINAL BINARY VALUE 

AH,1 ,MOVE HIGH DIGIT TO LOW DIGIT 

AH,1 

AH,1 

AH,1 

AH,9 

ADASCH 7BRANCH IF HIGH DIGIT IS DECIMAL 

AH,7 7ELSE ADD 7 SO AFTER ADDING ‘'0O' 
7 CHARACTER WILL BE IN ‘A'..'F' 

AH,'Q' 7ADD ASCII O TO MAKE A CHARACTER 


, 
7CONVERT LESS SIGNIFICANT DIGIT TO ASCII 


a 

AND 
CMP 
JBE 
ADD 


ADD 
RET 


AL,OFH 7MASK OFF LOW DIGIT 

AL,9 

ADASCL 7BRANCH IF LOW DIGIT IS DECIMAL 

AL,7 7ELSE ADD 7 SO AFTER ADDING '‘'0Q' 
7 CHARACTER WILL BE IN ‘A‘..'F' 

AL,'O' 7ADD ASCII O TO MAKE A CHARACTER 


SAMPLE EXECUTION 


THE 


THE 


SC1C: 
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7CONVERT O TO ASCII ‘'OO' 


SUB AL,AL 

CALL BN2HEX 7AH='0'=30H, AL='0'=30H 
7CONVERT FF HEXADECIMAL TO ASCII 'FF' 

MOV AL,OFFH 

CALL BN2HEX 7AH='F'=46H, AL='F'=46H 
7CONVERT 23 HEXADECIMAL TO ASCII '23' 

MOV AL,23H 

CALL BN2HEX 7AH='2'=32H, AL='3'=33H 


END 
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1D Hexadecimal ASCII to binary conversion 
(HEX2BN) 


Converts two ASCII characters (representing two hexadecimal digits) to 
one byte of binary data. 


Procedure The program converts each ASCII character separately to 
a hexadecimal digit. This involves a simple subtraction of 3016 (ASCII 0) 
if the digit is decimal. If the digit is non-decimal, the program must 
subtract another 7 to account for the gap between ASCII 9 (391.6) and 
ASCII A (4116). The program then shifts the more significant digit left 
four bit positions and combines it with the less significant digit. The 
program does not check whether the ASCII characters represent valid 
hexadecimal digits. 


Entry conditions 
More significant ASCII digit in AH, less significant ASCII digit in AL 


Exit conditions 
Binary data in AL 


Examples 


1. Data: [AH] = 4416 (ASCII D) 
[AL] = 3716 (ASCII 7) 
Result: [AL] = D716 


2. Data: [AH] = 3116 (ASCII 1) 
[AL] = 4215 (ASCII B) 
Result: [AL] = 1Bie 


Registers used AX,F 


Execution time 80 cycles minus 8 cycles for each non-decimal digit 


Name: 


Exit: 


Time: 


Size: 


we Me Ne We Ns We Me Ns Ne Ts Be We We Ne We We Ne Vs Vs Ws Ws Ne Ns Ne 


s 
7 


e 
a 


HEX2BN: 


SHFTMS: 
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Program size 27 bytes 


Data memory required None 





Title: 


Purpose: 


Entry: 


Registers Used: 


Hexadecimal ASCII to Binary 
HEX2BN 


Converts two ASCII characters to one 
byte of binary data 


Register AH = ASCII more significant digit 
Register AL = ASCII Less significant digit 


Register AL = Binary data 
AX,F 
Approximately 80 cycles 


Program 27 bytes 


CONVERT MORE SIGNIFICANT DIGIT TO BINARY 


SUB 
CMP 
JBE 
SUB 
SHL 
SHL 
SHL 
SHL 


AH,'O' 7SUBTRACT ASCII OFFSET CASCII 0) 

AH,9 7CHECK IF DIGIT DECIMAL 

SHFTMS ,BRANCH IF DIGIT IS DECIMAL 

AH,7 7ELSE SUBTRACT OFFSET FOR LETTERS 
AH,1 7SHIFT DIGIT TO MORE SIGNIFICANT BITS 
AH, 1 

AH, 1 _ 

AH, 1 


CONVERT LESS SIGNIFICANT DIGIT TO BINARY 


SUB 
CMP 
JBE 
SUB 


AL,'0O' 7SUBTRACT ASCII OFFSET CASCII 0) 
AL,9 7CHECK IF DIGIT DECIMAL 

CMBDIG 7BRANCH IF DIGIT IS DECIMAL 

AL,? 7ELSE SUBTRACT OFFSET FOR LETTERS 


COMBINE LESS SIGNIFICANT, MORE SIGNIFICANT DIGITS 


ADD 
RET 


AL,AH 7ADD DIGITS 
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7 

7 

; SAMPLE EXECUTION 

7 

, 

SC1D: 
;CONVERT ASCII 'C7' TO C7 HEXADECIMAL 
MOV AX,'C7' 
CALL HEX2BN ;AL=C7H 
s;CONVERT ASCII '2F' TO 2F HEXADECIMAL 
MOV AX,'2F' 
CALL HEX2BN ;AL=2FH 
sCONVERT ASCII '2A' TO 2A HEXADECIMAL 
MOV AX,'2A' 
CALL HEX2BN ;AL=2AH 


END 
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1E Conversion of a binary number to decimal ASCII 
(BN2DEC) 





Converts a 16-bit signed binary number into an ASCII string. The string 
consists of the length of the number in bytes, an ASCII minus sign (if 
needed), and the ASCII digits. Note that the length is in binary, not in 
ASCII. 


Procedure If the number is negative, the program takes its absolute 
value and places an ASCII minus sign in the buffer. It then divides the 
absolute value by 10000. If the quotient is non-zero, the program 
converts it to ASCII (by adding ASCII 0) and saves it in the buffer. It 
continues through the rest of the digits, replacing the quotient with the 
remainder each time. It saves the ASCII version of each digit except for 
leading zeros. Finally, the program converts the remainder from the 
division by 10 to ASCII and saves it as the ones digit. This digit always 
appears in the buffer; i.e. it is not dropped even if its value is 0. 





Entry conditions 


Base address of output buffer in BX 
Value to convert in AX (between —32 767 and +32 767) 


Exit conditions 


Order in buffer: 
Length of the string in bytes (a binary number) 
ASCII — (if value to convert is negative) 
ASCII digits (most significant digit first) 


Examples 


1. Data: Value to convert = 3EB7i¢ 
Result (in output buffer): 
05 (number of bytes in buffer) 
31 (ASCII 1) 
36 (ASCII 6) 
30 (ASCII 0) 
35 (ASCII 5) 
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35 (ASCII 5) 
1.€. 3EB7i16 = 1605510 


2. Data: Value to convert = FFC8i¢ 
Result (in output buffer): 
03 (number of bytes in buffer) 


2D (ASCII —) 

35 (ASCII 5) 

36 (ASCII 6) 

i.e. FFC8i¢6 = —5619, when considered as a signed two’s 
complement number 


Registers used AX, BX, CX, DI, DX, SI 
Execution time Approximately 700 cycles 
Program size 6/7 bytes 


Data memory required None except for the output buffer, which 


should be 7 bytes long. 
Title: Binary to Decimal ASCII 
Name: BN2DEC 
Purpose: Converts a 16-bit signed binary number 


to ASCII data 


Value to convert 
Output buffer address 


Entry: Register AX 
Register BX 


Exit: The first byte of the buffer is the 
length of the string in bytes, followed 
by the characters 

Registers Used: AX, BX, CX, DI, DX, SI 


Time: Approximately 700 cycles 


we We Me TM Me Me Ns Me Me Me Ne Ne Ne We Ns Ne Ne Ne Ve Vs Ns Ne Ne Nes 


Size: Program 67 bytes 


we Ne We Ne Ne Ne 


ws “Ws “Ne Ne 


qa we Ne Me Ns Ne 
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SET D FLAG FOR AUTOINCREMENTING, SAVE OLD VALUE 


PUSHF 7SAVE FLAGS CINCLUDING D FLAG) 
CLD 7 SELECT AUTOINCREMENTING 


SAVE ORIGINAL BUFFER POINTER FOR LATER USE 
WHEN STORING LENGTH 

SET BUFFER POINTER, NUMBER OF DIGITS, LEADING 
NON-ZERO DIGIT FLAG 


MOV S1,BX 7SAVE ORIGINAL BUFFER POINTER 
MOV DI,SI 7STRING POINTER = BUFFER POINTER 
INC DI 7POINT BEYOND LENGTH BYTE 

SUB CX,CX ;NUMBER OF DIGITS (CL) = 0 


7 NO LEADING NON-ZERO DIGIT FOUND (CH=0) 


TAKE ABSOLUTE VALUE AND STORE MINUS SIGN IN 
BUFFER IF DATA NEGATIVE 


AND AX ,AX 7CHECK SIGN OF DATA 

JNS CALCDG 7BRANCH IF SIGN POSITIVE 

NEG AX ;NEGATIVE, TAKE ABSOLUTE VALUE 

MOV BYTE PTR CDI],'-' ;SAVE MINUS SIGN IN BUFFER 
INC DI 7MOVE BUFFER POINTER 

INC CL 7ADD 1 TO STRING LENGTH FOR MINUS SIGN 


DIVIDE BINARY DATA BY POWERS OF 10 TO GET DIGITS 
STARTING WITH TEN THOUSAND 
DO NOT SAVE LEADING ZEROS IN BUFFER 


MOV BX,10000 ;DIVISOR = 10,000 

CALL DIVS16 7DIVIDE AND SAVE DIGIT IF NECESSARY 
MOV BX ,1000 7DIVISOR = 1000 

CALL DIVS16 7DIVIDE AND SAVE DIGIT IF NECESSARY 
MOV BX,100 7DIVISOR = 100 

CALL DIVS8 7DIVIDE AND SAVE DIGIT IF NECESSARY 
MOV BX,10 7DIVISOR = 10 

CALL DIVS8 7DIVIDE AND SAVE DIGIT IF NECESSARY 
ADD AL,'0' 7CONVERT ONES DIGIT TO ASCII 

STOSB 7ALWAYS SAVE ONES DIGIT 

INC CL 7ADD 1 TO STRING LENGTH FOR ONES DIGIT 


SAVE LENGTH OF STRING AT HEAD OF BUFFER 


MOV CS11,¢cv 7 SAVE STRING LENGTH AT HEAD OF BUFFER 
POPF 7RESTORE FLAGS (PARTICULARLY D FLAG) 
RET 
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FHI IKI IKI IKI IK KIKI ITI RII KIT III RII KIKI RI RIAA IARI KICK 
;ROUTINE: DIVS16, DIVS8 

;PURPOSE: DIVIDE DX:AX BY BX (DIVS16) OR AX BY BL (DIVS8) 

; SAVE ASCII QUOTIENT AT DI IF NON-ZERO OR NON-LEADING 
; FLAG LEADING NON-ZERO DIGIT WITH 1 IN REGISTER CH 

; MOVE BUFFER POINTER UP 1 IF DIGIT SAVED IN BUFFER 

7 ENTRY: DX:AX CONTAINS DIVIDEND FOR DIVS16, BX DIVISOR 

; AX CONTAINS DIVIDEND FOR DIVS8, BL DIVISOR 

7 EXIT: REMAINDER IN AX 


7REGISTERS USED: AX,CX,D1I,0X,F 
FI IIIT II TIKI III KI IKI KIKI IIR IRR RR ERRER ERE RE REE REE EKE 


DIVS16: SUB DX ,DX ;SET UPPER WORD OF DATA TO ZERO, THUS 
; EXTENDING IT TO 32 BITS FOR DIVISION 
DIV BX ;PERFORM 16-BIT DIVISION 
JMP CHKSV ;SAVE QUOTIENT IN STRING IF NECESSARY 
DIVS8: DIV BL ;PERFORM 8-BIT DIVISION 
SUB DX ,DX ;MOVE REMAINDER TO DX WITH UPPER 
MOV DL,AH ; BYTE = 0 
CHKSV: AND CH,CH 7;HAS A LEADING NON-ZERO DIGIT 
7; ALREADY BEEN FOUND? 
JNE SVDIG 71F SO, SAVE THIS DIGIT FOR SURE 
AND AL,AL ;IF NOT, IS THIS DIGIT NON-ZERO? 
JE ENDDIV 7;NO, BRANCH TO AVOID SAVING LEADING 
>, ZERO 
INC CH ;YES, INDICATE LEADING NON-ZERO 
3; DIGIT FOUND (SET CH TO 1) 
SVDIG: INC CL 3;ADD 1 TO STRING LENGTH 
ADD AL,'Q' ;CONVERT DIGIT TO ASCII 
STOSB ;SAVE ASCII DIGIT IN BUFFER 
ENDDIV: MOV AX ,DX ;REPLACE QUOTIENT WITH REMAINDER 


7 FOR NEXT DIVISION 


SAMPLE EXECUTION 


we We Ne Ne Ne 


SC1E: 
;CONVERT O TO ASCII 'O! 
SUB AX , AX ;DATA VALUE = QO 
MOV BX,BUFFER ;GET BASE ADDRESS OF BUFFER 
CALL BN2DEC ;CONVERT TO ASCII 


3 BUFFER SHOULD CONTAIN 
; BINARY 1 (LENGTH) 
; ASCII O (STRING) 
CONVERT 32767 TO ASCII '32767' 


MOV AX,32767 ;DATA VALUE = 32767 
MOV BX,BUFFER 7GET BASE ADDRESS OF BUFFER 
CALL BN2DEC 7CONVERT TO ASCII 


, BUFFER SHOULD CONTAIN 

; BINARY 5 (LENGTH) 

; ASCII 32767 (STRING) 
;CONVERT -32767 TO ASCII '-32767' 


BUFFER: 
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MOV AX,-32767 7DATA VALUE = -32767 
MOV BX,BUFFER 7GET BASE ADDRESS OF BUFFER 
CALL BN2DEC 7CONVERT TO ASCII 


, BUFFER SHOULD CONTAIN 

; BINARY 6 (LENGTH) 

; ASCII - (SIGN) 

; ASCII 32767 (STRING) 
DB 7 DUPC(O) ;7-BYTE BUFFER 
END 
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1F Conversion of ASCII decimal to binary 
(DEC2BN) 


Converts an ASCII string consisting of the length of the number (in 
bytes), a possible ASCII + or — sign, and a series of ASCII digits to two 
bytes of binary data. Note that the length is in binary, not in ASCII. 


Procedure The program checks whether the first byte is a sign and 
skips over it if it is. The program then uses the length of the string to 
determine the leftmost digit position. Moving left to right, it converts 
each digit to decimal (by subtracting ASCII 0), validates it, multiplies it 
by the corresponding power of 10, and adds the product to the running 
total. Finally, the program subtracts the binary value from zero if the 
string started with a minus sign. The program exits immediately, setting 
the Carry flag, if it finds something other than a leading sign or a decimal 
digit in the string. 


Entry conditions 


Base address of string in BX 


Exit conditions 


Binary value in AX 
The Carry flag is 0 if the string is valid, and 1 otherwise. Note that the 
result is a signed two’s complement 16-bit number. 


Examples 


1. Data: String consists of 
04 (number of bytes in string) 
31 (ASCII 1) 
32 (ASCII 2) 
33 (ASCII 3) 
34 (ASCII 4) 
1.e. the number is +1234 
Result: [AX] = 04D2;¢ (binary data) 
1.e. +123419 = 04D 2i6 


2. Data: String consists of 


wes “We Ne Ts Ne Ne Ws Ne Vs De Ns Ne 


1F Conversion of ASC/l decimal to binary (DEC2BN) 23 


06 (number of bytes in string) 

2D (ASCII —) 

33 (ASCII 3) 

32 (ASCII 2) 

37 (ASCII 7) 

35 (ASCII 5) 

30 (ASCII 0) 
1.e. the number is —32 75016 

Result: [AX] = 801616 (binary data) 

le. —23 75010 = 801216 


Registers used AX, BX, CX, DI, DX, F, SI 


Execution time Approximately 125 cycles per ASCII digit plus 100 
cycles overhead 


Program size 155 bytes 


Data memory required None 


Special cases 


1. If the string contains something other than a leading sign or a 
decimal digit, the program returns with the Carry flag set to 1. The 
result in AX is invalid. 


2. Ifthe string contains only a leading sign (ASCII + or ASCII —), the 
program returns with the Carry flag set to 1 and a result of 0. 


Title: Decimal ASCII to Binary 
Name: DEC2BN 
Purpose: Converts ASCII characters to two bytes 


of binary data 
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; Entry: Register BX = Input buffer address 
a 
; Exit: Register AX = Binary data 
; If no errors then 
; Carry = 0 
; else 
; Carry = 1 
av 
; Registers Used: AX,BX,CX,DI,DX,F,SI 
a 
; Time: Approximately 125 cycles per ASCII digit 
; plus 100 cycles overhead 
a 
; Size: Program 155 bytes 
7 
’ 
a 
; SAVE BUFFER POINTER, INITIALIZE BINARY VALUE TO ZERO 
7 
DEC2BN: 
CLD ;SELECT AUTOINCREMENTING 
MOV SI ,BX 7STRING POINTER = BUFFER POINTER 
MOV DI,SI ;SAVE BUFFER POINTER TO EXAMINE SIGN LATER 
SUB BX ,BX ;INITIALIZE BINARY VALUE TO ZERO 
LODSB ;GET BYTE COUNT 
MOV CL,AL ;SAVE BYTE COUNT 
SUB CH,CH ;INDICATE THERE IS A SIGN IN BUFFER 
a 
; CHECK IF FIRST BYTE OF ACTUAL STRING IS SIGN 
; IF SO, INDICATOR IN CH IS CORRECT AND DIGIT COUNTS 
; ARE CORRECT SINCE THEY ASSSUME A SIGN BYTE 
7 
LODSB ;GET FIRST BYTE OF ACTUAL STRING 
CMP AL,'-' ;CHECK IF IT IS ASCII - 
JE STMSD ;BRANCH IF IT IS 
CMP AL,'+' >CHECK IF IT IS ASCII + 
JE STMSD ;BRANCH IF IT IS 
a 
; FIRST BYTE IS NOT A SIGN 
; SET A FLAG, MOVE POINTER BACK TO START AT FIRST DIGIT 
; INCREASE BYTE COUNT BY 1 SINCE NO SIGN INCLUDED 
a 
INC CH ;INDICATE NO SIGN IN BUFFER 
DEC SI ;MOVE POINTER BACK TO FIRST DIGIT 
INC CL ;ADD 1 TO BYTE COUNT 
a 
; START CONVERSION AT MOST SIGNIFICANT DIGIT IN BUFFER 
; COULD BE UP TO SIX BYTES INCLUDING SIGN 
’ 
STMSD: 
CMP CL,6 ;LOOK FOR 10000'S DIGIT 
JE TENKD ;BRANCH IF FOUND 
CMP CL,5 7;LOOK FOR 1000'S DIGIT 
JE ONEKD ;BRANCH IF FOUND 
CMP CL,4 3;LOOK FOR 100'S DIGIT 


JE HUNDD 7BRANCH IF FOUND 


TENKD: 


ONEKD: 


se Ne Ne ON 


UNDD: 


TENSD: 


ONESD: 
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CMP CL,3 7LOOK FOR TENS DIGIT 

JE TENSD 7BRANCH IF FOUND 

CMP CL,2 7LOOK FOR ONES DIGIT 

JE ONESD 7BRANCH IF FOUND 

JMP ERREXIT 7NO DIGITS, INDICATE ERROR 


CONVERT 10000'S DIGIT TO BINARY 


LODSB 7GET 10000'S ASCII DIGIT 

CALL ASCDEC 7CONVERT TO BINARY, CHECK VALIDITY 
JC ERREXIT 7 JUMP IF ERROR RETURN 

CMP AL,3 7CHECK IF DIGIT TOO LARGE 

JA ERREXIT 7TAKE ERROR EXIT IF IT IS 

SUB AH,AH 7EXTEND DIGIT TO 16 BITS 

MOV DX,10000 ;MULTIPLY TIMES 10,000 

MUL DX 

MOV BX ,AX 7 SAVE PRODUCT 


CONVERT 1000'S DIGIT TO BINARY 


LODSB | ,GET 1000'S ASCII DIGIT 

CALL ASCDEC 7CONVERT TO BINARY, CHECK VALIDITY 
JC ERREXIT 7JUMP IF ERROR RETURN 

SUB AH,AH 7EXTEND DIGIT TO 16 BITS 

MOV DX,1000 ;MULTIPLY TIMES 1,000 

MUL DX 

ADD BX ,AX 7ADD PRODUCT TO PREVIOUS DIGITS 


CONVERT 100'S DIGIT TO BINARY 


LODSB ,GET 100'S ASCII DIGIT 

CALL ASCDEC 7CONVERT TO BINARY, CHECK VALIDITY 
JC ERREXIT 7JUMP IF ERROR RETURN 

MOV DL,100 7MULTIPLY TIMES 100 

MUL DL 

ADD BX ,AX 7ADD PRODUCT TO PREVIOUS DIGITS 


CONVERT TENS DIGIT TO BINARY 


LODSB 7GET 10'S ASCII DIGIT 

CALL ASCDEC 7CONVERT TO BINARY, CHECK VALIDITY 
Jc ERREXIT 7 JUMP IF ERROR RETURN 

MOV DL,10 7MULTIPLY TIMES 10 

MUL DL 

ADD BX ,AX 7ADD PRODUCT TO PREVIOUS DIGITS 


CONVERT ONES DIGIT TO BINARY 


LODSB 7GET 1'S ASCII DIGIT 
JSR ASCDEC 7CONVERT TO BINARY, CHECK VALIDITY 
Jc ERREXIT 7JUMP IF ERROR RETURN 
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SUB AH,AH 7EXTEND TO 16 BITS 
ADD BX ,AX 7ADD TO PREVIOUS DIGITS 
7 
; CHECK FOR MINUS SIGN 
, 
AND CH,CH 7WAS THERE A SIGN BYTE? 
JNE VALEXIT 7BRANCH IF NO SIGN 
MOV AL, CDI] 7GET SIGN BYTE 
CMP AL,'-' 7CHECK IF IT IS ASCII - 
JNE VALEXIT 7;BRANCH IF IT ISN'T 
7 
; NEGATIVE NUMBER, SO SUBTRACT VALUE FROM ZERO 
7 
NEG BX 7 SUBTRACT VALUE FROM ZERO 
7 
; EXIT WITH BINARY VALUE IN AX 
7 
VALEXIT: 
MOV AX ,BX 7RETURN TOTAL IN AX 
CLC 7CLEAR CARRY, INDICATING NO ERRORS 
RET 
7 
; ERROR EXIT - SET CARRY FLAG TO RETURN ERROR CONDITION 
7 
ERREXIT: 
MOV AX ,BX 7RETURN TOTAL IN AX 
STC 7SET CARRY TO INDICATE ERROR 
RET 


fH KIKI IK IIR IK RIK HIRI I KIT HRI IAI IARI ARITA RERII RE EEEEEREEREREKK 
7ROUTINE: ASCDEC | 
7PURPOSE: CONVERTS ASCII TO DECIMAL, CHECKS VALIDITY OF DIGITS 
ZENTRY: ASCII DIGIT IN AL 

7EXIT: DECIMAL DIGIT IN AL, CARRY = O IF DIGIT VALID, 1 IF NOT VALID 


7REGISTERS USED: AL, F 
ZHI I IRI KI III RII KIKI THIET EIEIEIAAAKEKEIREAEEEIEREEREREREAKKA 


ASCDEC: SUB AL,'0O' ;CONVERT TO DECIMAL BY SUBTRACTING ASCII 0O 
JB EREXIT ;BRANCH IF ERROR (VALUE TOO SMALL) 
CMP AL,9 ;CHECK IF RESULT IS DECIMAL DIGIT 
JA EREXIT ;BRANCH IF ERROR (VALUE TOO LARGE) 
CLC ;ELSE RETURN DECIMAL DIGIT AND CLEAR 

>; CARRY TO INDICATE VALID RESULT 

RET ; 

EREXIT: STC 7;SET CARRY TO INDICATE INVALID RESULT 
RET 

7 

7 

; SAMPLE EXECUTION 

, 

, 

SC1F: 


7CONVERT ASCII '1234' TO 04D2 HEX 
MOV BX,S1 7GET BASE ADDRESS OF S1 
CALL DEC2BN 7AX=04D2 HEX 
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7CONVERT ASCII '+32767' TO 7FFF HEX 


MOV 
CALL 


BX,S2 7GET BASE ADDRESS OF S2 
DEC2BN 7 AX=7FFF HEX 


7CONVERT ASCII '-32768' TO 8000 HEX 


MOV 
CALL 


DB 
DB 
DB 
DB 
DB 
DB 
END 


BX,S3 7GET BASE ADDRESS OF $3 
DEC2BN 7AX=8000 HEX 


4 
"1234! 

6 
"+32767' 

6 
'-32768' 





Array manipulation 
and indexing 


2A Two-dimensional byte array indexing 
(D2BYTE) 


23 


Calculates the address of an element of a two-dimensional byte-length 
array, given the array’s base address, the element’s two subscripts, and 
the size of a row (i.e. the number of columns). The array is assumed to 
be stored in row major order (i.e. by rows), and both subscripts are 
assumed to begin at 0. The array is also assumed to be contained 
entirely within the current data segment. 


Procedure The program multiplies the row size (number of columns 
in a row) times the row subscript (since the elements are stored by rows) 
and adds the product to the column subscript. It then adds the sum to 
the base address. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of column subscript 
High byte of column subscript 
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Low byte of the size of a row (in bytes) 
High byte of the size of a row (in bytes) 


Low byte of row subscript 
High byte of row subscript 


Low byte of base address of array 
High byte of base address of array 


Exit conditions 


Address of element in BX 





Examples 


1. Data: Base address = 3C001¢ 
Column subscript = 00044. 
Size of row (number of columns) = 001816 
Row subscript = 00031¢ 
Result: Element address = 3C00j6 + 000316 < 001816 + 000416 
= 3C0016 + 004816 + 00041. 
= 3C4C1¢ 
i.e. the address of ARRA Y(3,4) is 3C4Ci6 
2. Data: Base address = 6A4Ai6 
Column subscript = 003716 
Size of row (number of columns) = 005046 
Row subscript = 00021¢ 
Result: Element address = 6A4Aj6 + 0002;6 X 005016 + 003716 
= 6A4Aj6 + 00A0Ni16 + 003716 
= 6B2116 
i.e. the address of ARRA Y(2,35) is 6B2146 


Note that all subscripts are hexadecimal (e.g. 3716 = 5530). 
The general formula is 


ELEMENT ADDRESS = ARRAY BASE ADDRESS + ROW SUBS- 
CRIPT x ROW SIZE + COLUMN SUBSCRIPT 


Note that we refer to the size of the row subscript; this is the number of 
consecutive memory addresses for which the subscript has the same 
value. It is also the distance in bytes from the address of an element to the 
address of the element with the same column subscript but a row subscript 
1 larger. 
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Registers used AX, BX, DX, F 


Execution time Approximately 223 cycles 


Program size 22 bytes 


Data memory required None 


Title: 
Name: 


Purpose: 


Entry: 


Exit: 
Registers Used: 
Time: 


Size: 


Two-Dimensional Byte Array Indexing 
D2BYTE 


Given the base address of a byte array, 
two subscripts ‘'I' and ‘'J', and the size 
of the first subscript in bytes, calculate 
the address of ALI,J]. The array is assumed 
to be stored in row major order (AC0,0], 
ACO,11,...,ACK,LJ), and both dimensions 
are assumed to begin at zero as in the 
C language or in the following Pascal 
declaration: 

A:ARRAYCO..2,0..7] OF BYTE; 


TOP OF STACK 
Low byte of return address 
High byte of return address 
Low byte of second subscript (column number) 
High byte of second subscript (column number) 
Low byte of first subscript size, in bytes 
High byte of first subscript size, in bytes 
Low byte of first subscript (Crow number) 
High byte of first subscript (row number) 
Low byte of array base address 
High byte of array base address 

NOTE: 
The first subscript size is the Length of 
a row in bytes (number of columns). 


Register BX = Element address 
AX ,BX,DX,F 
Approximately 223 cycles 


Program 22 bytes 


D2BYTE: 


we Ne Ne Ve Ns 


SC2A: 


7 
7 DATA 


SUBS1 
SSUBS1 


SUBS2 
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7ELEMENT ADDRESS = ROW SIZE X ROW SUBSCRIPT + COLUMN 
7, SUBSCRIPT + BASE ADDRESS 


a 

PUSH BP 7 SAVE BASE POINTER 

MOV BP,SP 7GET BASE ADDRESS OF PARAMETERS 
MOV AX, CBP+4] 7GET ROW SIZE 

MOV DX, CBP+6] 7GET ROW SUBSCRIPT 


MUL DX 7ROW SIZE X ROW SUBSCRIPT 
, 
7ADD COLUMN SUBSCRIPT AND BASE ADDRESS 


ADD AX, CBP+2] 7ADD COLUMN SUBSCRIPT 
ADD AX, CBP+8] 7ADD BASE ADDRESS 


7SAVE ELEMENT ADDRESS IN BX 
7REMOVE PARAMETERS FROM STACK AND EXIT 


a 

MOV BX ,AX 7SAVE ELEMENT ADDRESS 

POP BP 7RESTORE BASE POINTER 

RET 8 7EXIT, REMOVING PARAMETERS 


7 FROM STACK 


SAMPLE EXECUTION 


MOV BX,OFFSET ARY 7GET BASE ADDRESS OF ARRAY 
PUSH BX 

MOV AX, CSUBS1] 7GET FIRST CROW) SUBSCRIPT 
PUSH AX 

MOV AX,CSSUBS1] 7GET SIZE OF FIRST SUBSCRIPT 
PUSH AX 

MOV AX, CSUBS2] 7GET SECOND (COLUMN) SUBSCRIPT 
PUSH AX 

CALL D2BYTE 7CALCULATE ADDRESS OF ELEMENT 


7FOR THE INITIAL TEST DATA 
7BX = ADDRESS OF ARY(2,4) 
; ARY + (2 X 8) + 4 
= ARY + 20 (CONTENTS ARE 21) 
;NOTE BOTH SUBSCRIPTS START AT 0 


JMP SC2A 7REPEAT TEST 

DW 2 7SUBSCRIPT 1 (CROW NUMBER) 

DW 8 ,SIZE OF SUBSCRIPT 1 (NUMBER OF BYTES 
7 PER ROW) 


DW 4 7SUBSCRIPT 2 (COLUMN NUMBER) 
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7THE ARRAY (3 ROWS OF 8 COLUMNS) 


ARY DB 1,2,374,5,6,7,8 
DB 9,10,11,12,13,14,15,16 
DB 17,18,19,20,21,22,23,24 


END 
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2B Two-dimensional word array indexing 
(D2WORD) 


Calculates the address of an element of a two-dimensional word-length 
(16-bit) array, given the array’s base address, the element’s two subs- 
cripts, and the size of a row (i.e. the number of columns). The array is 
assumed to be stored in row major order (i.e. by rows), and both 
subscripts are assumed to begin at 0. 


Procedure The program multiplies the row size (number of bytes in a 
row) times the row subscript (since the elements are stored by rows), 
adds the product to the doubled column subscript (doubled because 
each element occupies two bytes), and adds the sum to the base address. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of column subscript 
High byte of column subscript 


Low byte of the size of a row (in bytes) 
High byte of the size of a row (in bytes) 


Low byte of row subscript 
High byte of row subscript 


Low byte of base address of array 
High byte of base address of array 


Exit conditions 


Base address of element in BX 
The element occupies the address in BX and the next higher address 


Examples 
1. Data: Base address = 5E14i6 
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Column subscript = 000816 
Size of row (in bytes) = 001Cj¢ (i.e. each row has 001449 
or 000Ei6 word-length elements) 
Row subscript = 00051¢ 
Result: Element base address = 5E141¢ + 000516 X 001Ci¢ + 
000816 xX 2 
= SE1446 + 008Ci6 + 001016 
= SEBO0i¢ 
i.e. the base address of ARRAY(5,8) is 5EBO,6 and the 
element occupies addresses 5EB01¢ and S5EB116 
2. Data: Base address = B100i¢ 
Column subscript = 00021¢ 
Size of row (in bytes) = 000816 (i.e. each row has four 
word-length elements) 
Row subscript = 000616 
Result: Element’s base address = B1001¢ + 000616 x 000816 + 
000216 X 2 

= B1001¢ + 003016 + 00044. 

= B13446 
i.e. the base address of ARRAY(6,2) is B1341¢ and the 
element occupies addresses B1344¢ and B13546 


The general formula is 


ELEMENT’S BASE ADDRESS = ARRAY BASE ADDRESS + 
ROW SUBSCRIPT x ROW SIZE 
+ COLUMN SUBSCRIPT x 2 


Note that one parameter of this routine is the size of a row in bytes. The 
size for word-length elements is the number of columns per row times 2 
(the size of an element in bytes). The reason for choosing this parameter 
rather than the number of columns or the maximum column index is 
that it can be calculated once (when the array bounds are determined) 
and used whenever the array is accessed. The alternative parameters 
(number of columns or maximum column index) would require extra 
calculations during each indexing operation. 


Registers used AX,BX,DX,F 


Execution time Approximately 228 cycles 
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Program size 26 bytes 


Data memory required None 





Title: 
Name: 


Purpose: 


Entry: 


Exit: 
Registers Used: 
Time: 


Size: 


D2WORD: 


Two-Dimensional Word Array Indexing 
D2WORD 


Given the base address of a word array, 

two subscripts 'I' and 'J', and the size 

of the first subscript in bytes, calculate 

the address of ALI,J]. The array is assumed 

to be stored in row major order (AC0,01, 

ACO,1],...,ACK,L]), and both dimensions 

are assumed to begin at zero as in the C 

Language or the following Pascal declaration: 
A:ARRAYCO..2,0..7] OF WORD; 


TOP OF STACK 
Low byte of return address 
High byte of return address 
Low byte of second subscript (column element) 
High byte of second subscript (column element) 
Low byte of first subscript size, in bytes 
High byte of first subscript size, in bytes 
Low byte of first subscript (row element) 
High byte of first subscript (row element) 
Low byte of array base address 
High byte of array base address 

NOTE: 
The first subscript's size is the length of 
a row in words times 2. 


Register BX = Element's base address 
AX ,BX,DX,F 
Approximately 228 cycles 


Program 26 bytes 


7 
7ELEMENT ADDRESS = ROW SIZE X ROW SUBSCRIPT + 2 X COLUMN 
7 SUBSCRIPT + BASE ADDRESS 


, 
PUSH 


7 SAVE BASE POINTER 
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MOV BP,SP 7GET BASE ADDRESS OF PARAMETERS 
MOV AX, CBP+4] 7GET ROW SIZE 
MOV 0X,CBP+6] 7GET ROW SUBSCRIPT 


MUL DX 7ROW SIZE X ROW SUBSCRIPT 


7;ADD DOUBLED COLUMN SUBSCRIPT AND BASE ADDRESS 


av 

MOV DX,CBP+2] 7GET COLUMN SUBSCRIPT 

SHL DX,1 ,DOUBLE COLUMN SUBSCRIPT SINCE 
; ELEMENTS EACH OCCUPY 2 BYTES 

ADD AX,DX 7ADD DOUBLED COLUMN SUBSCRIPT 


ADD AX, (BP+8] 7ADD BASE ADDRESS 


a 
7REMOVE PARAMETERS FROM STACK AND EXIT 


a 

MOV BX , AX 7 SAVE ELEMENT ADDRESS 

POP BP 7RESTORE BASE POINTER 

RET 8 7EXIT, REMOVING PARAMETERS FROM 
7 STACK 


SAMPLE EXECUTION 


we “Ne Ns Ne Neo 


SC2B: 
MOV BX,OFFSET ARY 7;GET BASE ADDRESS OF ARRAY 
PUSH BX 
MOV AX, CSUBS1] ;GET FIRST SUBSCRIPT (CROW 
; NUMBER) 
PUSH AX 
MOV AX, CSSUBS1] 7GET SIZE OF FIRST SUBSCRIPT 
PUSH AX 
MOV AX, CSUBS2] 7;GET SECOND SUBSCRIPT (COLUMN 
> NUMBER) 
PUSH Ax 
CALL D2WORD 7; CALCULATE ADDRESS OF ELEMENT 
7;FOR THE INITIAL TEST DATA 
;BX = ADDRESS OF ARY(2,4) 
; = ARY + (2 X 16) + 4 X 2 
= ARY + 40 CCONTENTS ARE 2100H) 
NOTE BOTH SUBSCRIPTS START AT O 
JMP $C2B ;REPEAT TEST 
7; DATA 
a 
SUBS 1 DW 2 ;SUBSCRIPT 1 CROW NUMBER) 
SSUBS1 DW 16 ;SIZE OF SUBSCRIPT 1 (NUMBER OF BYTES 
3 PER ROW) 
SUBS2 DW 4 ;SUBSCRIPT 2 (COLUMN NUMBER) 
;THE ARRAY (3 ROWS OF 8 COLUMNS) . 
ARY DW 0100H,0200H,0300H,0400H ,0500H,0600H,0700H ,0800H 
DW 0900H,1000H,1100H,1200H,1300H,1400H,1500H,1600H 
DW 1700H,1800H,1900H,2000H,2100H,2200H,2300H,2400H 


END 
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2C Two-dimensional array indexing with a dope vector 
(CRDVEC, D2BYDV) 





Calculates the address of an element of a two-dimensional byte-length 
(8-bit) array, given the array’s base address, the element’s two subs- 
cripts, and the size of a row (i.e. the number of columns). The array is 
assumed to be stored in row major order (i.e. by rows), and both 
subscripts are assumed to begin at 0. 

Consists of two subroutines: CRDVEC, which creates a ‘dope vector’ 
consisting of the addresses of the Oth elements of each row; and 
D2BYDV, which calculates the address of an element using the dope 
vector. This approach saves indexing time (since no multiplications are 
necessary); the cost is the extra storage required for the dope vector. 


Procedure Subroutine CRDVEC creates the dope vector by starting 
with the base address and adding the row size repeatedly to determine 
the remaining elements. Subroutine D2BYDV calculates the address of 
a particular byte-length element by adding the column subscript to the 
selected element of the dope vector. This routine can be modified easily 
to handle elements of different sizes. Note that the dope vector’s ele- 
ments are 16-bit offset addresses (i.e. addresses within the current data 
segment). 


Entry conditions 
Order in stack (starting from the top) 


1. CRDVEC 
Low byte of return address 
High byte of return address 


Low byte of the size of a row (in bytes) 
High byte of the size of a row (in bytes) 


Low byte of number of rows in array 
High byte of number of rows in array 


Low byte of base address of dope vector 
High byte of base address of dope vector 


Low byte of base address of array 
High byte of base address of array 
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2. D2BYDV 
Low byte of return address 
High byte of return address 


Low byte of column subscript 
High byte of column subscript 


Low byte of row subscript 
High byte of row subscript 


Low byte of base address of dope vector 
High byte of base address of dope vector 


Exit conditions 


1. CRDVEC 
Dope vector stored in memory 


2. D2BYDV 
Base address of element in BX 


Examples 


1. Creating a dope vector: 

Base address = 5E14i6 

Size of row (in bytes) = 001Ci¢ 

Number of rows = 000516 

Result: Dope vector has the following elements: 

5E1416 (address of element in row 0, column 0) 
5E3016 (address of element in row 1, column 0) 
SE4Cj¢ (address of element in row 2, column 0) 
5E6816 (address of element in row 3, column 0) 
5E841¢ (address of element in row 4, column 0) 


2. Using a dope vector (created in part 1) with byte-length elements: 
Column subscript = 0B1¢ 
Row subscript = 2 
Result: Element’s address = Element 2 of dope vector + column 
subscript = S5E4Ci¢ + OB = 5SES716 
i.e. ARRAY(2,11) is in address 5ES7;¢ 


The general formula is 
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ELEMENT’S ADDRESS = DOPE VECTOR (ROW SUBSCRIPT) + 
COLUMN SUBSCRIPT 


Note that one parameter of CRDVEC is the size of a row in bytes. For 
example, the size for word-length elements would be the number of 
columns per row times 2 (the size of an element in bytes). However, 
D2BYDV assumes byte-length elements; you would have to adjust 
either the routine or the column subscript to handle elements of other 
sizes. 


Registers used 
1. CRDVEC: AX, CX, DI, DX 
2. D2BYDV: BX, DX, F, SI 


Execution time 
1. CRDVEC: 120 cycles overhead plus 31 cycles per row 
2. D2BYDV: 116 cycles 


Program size 
1. CRDVEC: 27 bytes 
2. D2BYDV: 20 bytes 


Data memory required 
1. CRDVEC: None 
2. D2BYDV: None 


Title: Two-Dimensional Array Indexing 
with a Dope Vector 
Name: CRDVEC, D2BYDV 
Purpose: Given the base address of an array, 


and two subscripts 'I' and 'J', calculate 
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the address of ACLI,J], using a dope 

vector containing the addresses of the 

first element in each row. 

The array is assumed to be stored 

in row major order (ACO,0J, ALO,1], 

ACO,2],...,ALCK,L]), and both dimensions 

are assumed to begin at zero as in the C 

Language or the following Pascal declaration: 
A:ARRAYLO..2,0..7] OF BYTE; 


D2BYDV assumes that the array consists of 
byte-length elements 


Entry: TOP OF STACK 


1) CRDVEC 

Low byte of return address 

High byte of return address 

Low byte of row size, in bytes 

High byte of row size, in bytes 

Low byte of number of rows 

High byte of number of rows 

Low byte of base address of dope vector 
High byte of base address of dope vector 
Low byte of array base address 

High byte of array base address 


2) D2BYDV 

Low byte of return address 

High byte of return address 

Low byte of column subscript 

High byte of column subscript 

Low byte of row subscript 

High byte of row subscript 

Low byte of base address of dope vector 
High byte of base address of dope vector 


Exit: CRDVEC - Dope vector in memory 
D2BYDV - Base address of element in BX 


Registers Used: CRDVEC - AX,CX,DI,DX 
D2BYDV - BX,DX,F,SI 


Time: CRDVEC - 120 cycles overhead plus 31 
cycles per row 
D2BYDV - Approximately 116 cycles 


Size: CRDVEC - Program 27 bytes 
D2BYDV - Program 20 bytes 
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, 
7CREATE A DOPE VECTOR IN MEMORY 
71T CONTAINS THE ADDRESS OF THE ZEROTH ELEMENT 
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7 OF EACH ROW OF THE ARRAY 


a 
CRDOVEC: 
PUSH BP 7 SAVE BASE POINTER 
PUSHF 7SAVE FLAGS (PARTICULARLY D) 
MOV BP,SP 7GET BASE ADDRESS OF PARAMETERS 
MOV CX,CBP+6] 7GET NUMBER OF ROWS 
MOV AX, CBP+10] 7GET ARRAY BASE ADDRESS 
MOV DI,CBP+8] 7GET DOPE VECTOR BASE ADDRESS 
MOV DX,CBP+4] 7GET SIZE OF SUBSCRIPT 
CLD 7SET AUTOINCREMENTING 
a 
7BUILD DOPE VECTOR STARTING WITH ARRAY BASE ADDRESS 
7 AND ADDING ROW SIZE FOR EACH SUCCESSIVE ELEMENT 
a 
STVEC: STOSW 7SAVE ELEMENT OF VECTOR 
ADD AX,DX 7ADD ROW SIZE TO GET NEXT 
LOOP STVEC 7CONTINUE THROUGH NUMBER 
7 OF ROWS 


7 
7REMOVE PARAMETERS FROM STACK AND EXIT 


POPF 7RESTORE D FLAG 

POP BP 7RESTORE BASE POINTER 

RET 8 7EXIT, REMOVING PARAMETERS FROM 
7 STACK 


7ACCESS AN ELEMENT GIVEN ITS ROW AND COLUMN SUBSCRIPTS AND 
, THE DOPE VECTOR 
7THIS ROUTINE ASSUMES BYTE-LENGTH ELEMENTS 


a 
D2BYDV: 


7 
7GET ELEMENT OF DOPE VECTOR BASED ON ROW SUBSCRIPT 


PUSH BP 7 SAVE BASE POINTER 

MOV BP,SP 7GET BASE ADDRESS OF PARAMETERS 
MOV BX ,CBP+6] 7GET DOPE VECTOR BASE ADDRESS 
MOV S$1,CBP+4] 7GET ROW SUBSCRIPT 

SHL SI,1 ;DOUBLE SUBSCRIPT SINCE DOPE 


, VECTOR ELEMENTS ARE 16-BIT 
7 ADDRESSES 

MOV BX, CBX+SI1] 7GET ELEMENT OF DOPE VECTOR 

, 

7ADD COLUMN SUBSCRIPT TO ELEMENT OF DOPE VECTOR 

, 

ADD BX, [CBP+2] 7ADD COLUMN SUBSCRIPT 


;REMOVE PARAMETERS FROM STACK AND EXIT 


POP BP 7RESTORE BASE POINTER 
RET 6 7EXIT, REMOVING PARAMETERS FROM 
7 STACK 


wa Ne Ne 


SC2C: 


, 
;DATA 
; 
COLNO 
NROWS 


ROWNO 
SIZEROW 


DPVECT 
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SAMPLE EXECUTION 


MOV 
PUSH 
MOV 
PUSH 
MOV 
PUSH 
MOV 
PUSH 
CALL 


MOV 
PUSH 
MOV 
PUSH 
MOV 
PUSH 
CALL 


JMP 


DW 


DW 
DW 


DW 


BX,OFFSET ARY 

BX 

BX,OFFSET DPVECT 
BX 

AX, CNROWS] 

AX 

AX, CSIZEROW] 

AX 

CRDVEC 


BX,OFFSET DPVECT 
BX 

AX, CROWNO] 

AX 

AX, CCOLNOJ 

AX 

D2BYDV 


sc2c 


ee ee 


7GET BASE ADDRESS OF ARRAY 

7GET BASE ADDRESS OF DOPE VECTOR 
7GET NUMBER OF ROWS 

7GET SIZE OF ROW IN BYTES 


7CREATE DOPE VECTOR 

71T CONTAINS THE ADDRESS 

7 OF THE ZEROTH ELEMENT OF 

7 EACH ROW 

7GET BASE ADDRESS OF DOPE VECTOR 


7GET ROW SUBSCRIPT 
7GET COLUMN SUBSCRIPT 


;CALCULATE ADDRESS FOR TEST 
3; DATA 

7; BX ADDRESS OF ARY(2,4) 

; ARY + (2 X 16) + 4 X 2 
; ARY + 40 

;CONTENTS ARE 41 

;REPEAT TEST 


7COLUMN SUBSCRIPT (COLUMN NUMBER) 
7NUMBER OF ROWS IN ARRAY 
7ROW SUBSCRIPT (CROW NUMBER) 

6 7SIZE OF A ROW IN BYTES 


5 DUP(O) ;DOPE VECTOR CADDRESS OF ZEROTH 
; ELEMENT IN EACH ROW) 


7THE ARRAY (5 ROWS OF 16 COLUMNS) - ONE BYTE PER ELEMENT 
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 
17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 
33,34,35,36,37,38,39,40,41,42,43,44,45 ,46,47,48 
49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64 
65 ,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80 


ARY 


DB 
DB 
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2D N-dimensional array indexing 
(NDIM) 





Calculates the base address of an element of an N-dimensional array, 
given the array’s base address and N pairs of sizes and subscripts. The 
size of a dimension is the number of bytes from the base address of an 
element to the base address of the element with an index 1 larger in the 
dimension but the same in all other dimensions. The array is assumed to 
be stored in row major order (i.e. organized so that subscripts to the 
right change before ones to the left). All subscripts are assumed to begin 
at 0. 

Note that the size of the rightmost subscript is simply the size of an 
element in bytes; the size of the next subscript is the size of an element 
times the maximum value of the rightmost subscript plus 1, and so on. 
All subscripts are assumed to begin at 0. Otherwise, the user must 
normalize them (see the second example at the end of the listing). 


Procedure The program loops on each dimension, calculating the 
offset in it as the subscript times the size. After calculating the overall 
offset, the program adds it to the array’s base address to obtain the 
element’s base address. 





Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of number of dimensions 
High byte of number of dimensions 


Low byte of size of rightmost dimension 
High byte of size of rightmost dimension 


Low byte of rightmost subscript 
High byte of rightmost subscript 


Low byte of size of leftmost dimension 
High byte of size of leftmost dimension 


Low byte of leftmost subscript 
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High byte of leftmost subscript 


Low byte of base address of array 
High byte of base address of array 


Note that the number of parameters in the stack depends on the number of 
dimensions. 


Exit conditions 


Base address of element in BX 
The element occupies memory addresses START through START + SIZE — 1, 
where START is the calculated address and SIZE is the size of an element in bytes. 





Example 


Data: Base address = 3C00i¢ 
Number of dimensions = 000346 
Rightmost subscript = 000516 
Rightmost size = 000316 (3-byte entries) 
Middle subscript = 000316 
Middle size = 001216 (six 3-byte entries) 
Leftmost subscript = 000416 
Leftmost size = 007Ei¢ (seven sets of six 3-byte entries) 
Result: Element base address = 3C0016 + 000516 X 000316 + 000316 X 001216 
+ 000416 X OO7Ei6 
= 3C0016 + 000Fi¢6 + 003616 + O1F 816 
= 3E3D 16 
i.e. the element is ARRAY(4,3,5); it occupies addresses 3E3Di¢6 
through 3E3Fi¢. [The maximum values of the various subscripts are 6 
(leftmost) and 5 (middle), with each element occupying 3 bytes. | 


The general formula is 
ELEMENT ADDRESS = ARRAY ADDRESS + 


N 


a SUBSCRIPT; X SIZE; 


i= 


where: 


N is the number of dimensions 
SUBSCRIPT; is the ith subscript 
SIZE; is the size of the ith dimension 
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Note that we use the size of each dimension as a parameter to reduce the number of 
repetitive multiplications and to generalize the procedure. The sizes can be cal- 
culated and saved as soon as the bounds of the array are known. Those sizes can 
then be used whenever indexing is performed on the array. Obviously, the sizes do 
not change if the bounds are fixed, and they should not be recalculated as part of 
each indexing operation. The sizes are also general, since the elements can them- 
selves consist of any number of bytes. 





Registers used AX, BX, CX, DI, DX,F 


Execution time Approximately 161 cycles per dimension plus 42 cycles overhead 


Program size 21 bytes 


Data memory required None 


Special case 


If the number of dimensions is 0, the program returns with the base address in BX. 





Title: N-Dimensional Array Indexing 
Name: NDIM 
Purpose: Calculate the address of an element in an 


N-dimensional array given the base address, 
N pairs of size in bytes and subscripts, and 
the number of dimensions of the array. The 
array is assumed to be stored in row major 
order (e.g., ACO,0,01,AC0,0,11,...,ACL0,1,0], 
ACO,1,1],...). Also, it is assumed that all 
dimensions begin at O as in the C language or 
in the following Pascal declaration: 
A:ARRAY(CO..10,0..3,0..5] OF SOMETHING 


Entry: TOP OF STACK 
Low byte of return address 
High byte of return address 
Low byte of number of dimensions 


we Ne We Ne We Ne Ws Ne Ne Vs Ns Ns We We Vs We We We Ne Neo Ns Vs Ws Ns 
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NDIM: 


NXTDIM: 
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High byte of number of dimensions 
Low byte of dim N size 

High byte of dim N size 

Low byte of dim N subscript 

High byte of dim N subscript 

Low byte of dim N-1 size 

High byte of dim N-1 size 

Low byte of dim N-1 subscript 
High byte of dim N-1 subscript 


Low byte of array base address 

High byte of array base address 
NOTE: 

All sizes are in bytes. 


Exit: Register BX = Element's base address 

Registers Used: AX ,BX,CX,DI,DX,F 

Time: Approximately 161 cycles per dimension plus 
42 cycles overhead 

Size: Program 21 bytes 


EXIT IMMEDIATELY IF NUMBER OF DIMENSIONS IS ZERO 


POP DI 7 SAVE RETURN ADDRESS 

POP | CX 7GET NUMBER OF DIMENSIONS 

POP BX 7GET BASE ADDRESS IF ZERO 
7 DIMENSIONS 

JCXZ EXITND 7BRANCH IF NUMBER OF DIMENSIONS 
, IS ZERO 

MOV AX , BX 71F NO. DIMENSIONS NOT ZERO, 


, PARAMETER IS FIRST SIZE 


;ELEMENT ADDRESS = BASE ADDRESS + SIZECI) X SUBSCRIPTC(I) FOR 
; I= 17T0N 


a 
SUB BX ,BX 7 START ELEMENT ADDRESS AT ZERO 


;MULTIPLY ROW SUBSCRIPT X ROW SIZE AND ADD TO PREVIOUS 
7 ACCUMULATION 


a 
POP DX 7GET NEXT SUBSCRIPT 
MUL DX 7SIZE X SUBSCRIPT 
ADD BX ,AX 7ADD TO ACCUMULATED ELEMENT 
7, ADDRESS 
POP AX 7GET NEXT SIZE OR BASE ADDRESS 


7 IF ON LAST DIMENSION 


EXITND: 


we Ye Ne Ne 


SC2D: 
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LOOP NXTDIM 7COUNT DIMENSIONS 


7ADD TOTAL OFFSET TO BASE ADDRESS OF ARRAY 


ADD BX ,AX 7ADD BASE ADDRESS OF ARRAY 
, 

7 EXIT 

7 

JMP DI 7EXIT TO RETURN ADDRESS 


SAMPLE EXECUTION 


; 

7CALCULATE ADDRESS OF AY1C1,3,0] 

7SINCE LOWER BOUNDS OF ARRAY 1 ARE ALL ZERO IT IS 
7 NOT NECESSARY TO NORMALIZE THEM 


a 

MOV BX,OFFSET AY1 7BASE ADDRESS OF ARRAY 

PUSH BX 

MOV AX,1 7 FIRST SUBSCRIPT 

PUSH AX 

MOV AX,A1SZ1 7SIZE OF FIRST SUBSCRIPT 

PUSH AX 

MOV AX ,3 7 SECOND SUBSCRIPT 

PUSH AX 

MOV AX,A1SZ2 7SIZE OF SECOND SUBSCRIPT 

PUSH AX 

SUB AX,AX 7 THIRD SUBSCRIPT = 0 

PUSH AX 

MOV AX,A1SZ3 7SIZE OF THIRD SUBSCRIPT 

PUSH AX 

MOV AX,A1DIM 7NUMBER OF DIMENSIONS 

PUSH AX 

CALL NDIM 7CALCULATE ADDRESS OF ELEMENT 
7BX = STARTING ADDRESS OF AY1(1,3,0) 
; = AY1 + (1 X 126) + (3 X 21) + (0 X 3) 
; = AY1 + 189 


7CALCULATE ADDRESS OF AY2[-1,6] 
7 SINCE LOWER BOUNDS OF ARRAY 2 DO NOT START AT O, SUBSCRIPTS 
7 MUST BE NORMALIZED 


MOV BX,OFFSET AY2 7BASE ADDRESS OF ARRAY 

PUSH BX 

MOV AX,-1 7UNNORMALIZED FIRST SUBSCRIPT 

SUB AX,A2D1L 7NORMALIZE FIRST SUBSCRIPT BY 
7 SUBTRACTING LOWER BOUND 

PUSH AX 

MOV AX,A2SZ1 7SIZE OF FIRST SUBSCRIPT 

PUSH AX 

MOV AX,6 7UNNORMALIZED SECOND SUBSCRIPT 


SUB AX,A2D2L NORMALIZE SECOND SUBSCRIPT BY 
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7 SUBTRACTING LOWER BOUND 


PUSH AX 
MOV AX ,A2SZ2 7;SIZE OF SECOND SUBSCRIPT 
PUSH AX 
MOV AX,A2DIM ;NUMBER OF DIMENSIONS 
PUSH AX 
CALL NDIM ;CALCULATE ADDRESS 
3;BX = STARTING ADDRESS OF AY2(-1,6) 
; = AY2+(((-1)-(-5)) X 18)4+0(€6-2) X 2) 
; = AY2+80 
JMP SC2D ;REPEAT TEST 
;DATA 
zAY1 ARRAYCA1D1L..A1D1H,A1D2L..A1D2H,A1D3L..A1D3H] 3-BYTE ELEMENTS 
; Co .. 3 , 0 . .5 , 0 ..6 J 
A1DIM EQU 3 ;NUMBER OF DIMENSIONS 
A1D1L EQU 0 ;LOW BOUND OF DIMENSION 1 
A1D1H EQU 3 ;HIGH BOUND OF DIMENSION 1 
A1D2L EQU 0 ;LOW BOUND OF DIMENSION 2 
A1D2H EQU 5 ;HIGH BOUND OF DIMENSION 2 
A1D3L EQU 0 3;LOW BOUND OF DIMENSION 3 
A1D3H EQU 6 ;HIGH BOUND OF DIMENSION 3 
A1SZ3 EQU 3 ;SIZE OF ELEMENT IN DIMENSION 3 
A1SZ2 EQU CCATD3H-A1D3L)+1)*A1SZ3 ;SIZE OF ELEMENT IN D2 
A1SZ1 EQU CCAID2ZH-A1D2L)+1)*A1SZ2 ;SIZE OF ELEMENT IN D1 
AY1 DB ((CA1D1H-A1D1L)+1)*A1SZ1 DUP(O) ;ARRAY 
sAY2 ARRAY CA2D1L..A2D1H,A2D2L..A2D2H] OF WORD 
; C -5 ..2 -1 , 2 .«. 10 J 
A2DIM EQU 2 ;NUMBER OF DIMENSIONS 
A2Dd1L EQU | -5 ;LOW BOUND OF DIMENSION 1 
A2D1H EQU -1 ;HIGH BOUND OF DIMENSION 1 
A2d2L EQU 2 ;LOW BOUND OF DIMENSION 2 
A2D2H EQU 10 ;HIGH BOUND OF DIMENSION 2 
A2SZ2 EQU 2 ;SIZE OF ELEMENT IN D2 
A2SZ1 EQU CCA2D2H-A2D2L)+1)*A2SZ2 ;SIZE OF ELEMENT IN D1 
AY2 DB (CA2D1H-A2D1L)+1)*A2SZ1 DUP(O) ; ARRAY 


END 


‘3 Arithmetic 


3A Miultiple-precision binary addition 
(MPBADD} | 





Adds two multi-byte unsigned binary numbers. Both are stored with their 
least significant bytes at the lowest address. The sum replaces the number 
with the base address lower in the stack. 


Procedure The program clears the Carry flag initially and adds the 
operands one byte at a time, starting with the least significant bytes. The 
final Carry flag indicates whether the overall addition produced a carry. A 
length of 0 causes an immediate exit with no addition. 





Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of length of operands in bytes 
High byte of length of operands in bytes 


Low byte of base address of second operand (address containing the least 
significant byte of array 2) 
High byte of base address of second operand (address containing the least 
significant byte of array 2) 
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Low byte of base address of first operand and sum (address containing 
the least significant byte of array 1) 
High byte of base address of first operand and sum (address containing 
the least significant byte of array 1) 


Exit conditions 


First operand (array 1) replaced by first operand (array 1) plus second 
operand (array 2) 


Example 


Data: Length of operands (in bytes) = 6 
Top operand (array 2) = 19D028A193EAi6 
Bottom operand (array 1) = 293EABF059C71¢ 
Result: Bottom operand (array 1) = Bottom operand (array 1) + Top 
operand (array 2) 
= 430ED491EDB14¢6 
Carry = 0 


Registers used AX, CX, DI, DX, F (clears D flag), SI 


Execution time 54 cycles per byte plus 51 cycles overhead. For 
example, adding two 6-byte operands takes 


54 X 6 + 51 = 375 cycles 


Program size _ 16 bytes 


Data memory required None 


Special case A length of 0 causes an immediate exit with the sum 
equal to the bottom operand (i.e. array 1 is unchanged). The Carry flag 
is cleared. 


3A Multiple-precision binary addition (MPBADD) 


Multiple-Precision Binary Addition 
MPBADD 


Add 2 arrays of binary bytes 
Array1 := Array 1 + Array 2 


TOP OF STACK 
Low byte of return address 
High byte of return address 
Low byte of array length in bytes 
High byte of array length in bytes 
Low byte of array 2 address 
High byte of array 2 address 
Low byte of array 1 address 
High byte of array 1 address . 


The arrays are unsigned binary numbers 
with a maximum length of 65,535 bytes, 
ARRAYLO] is the least significant 
byte, and ARRAYCLENGTH-1] is the 
most significant byte. 

Array1 := Array1 + Array2 

AX,CX,DI,0X,F (clears D flag),SI 

54 cycles per byte plus 51 cycles overhead 


Program 16 bytes 


7 
;CHECK IF LENGTH OF ARRAYS IS ZERO 
;EXIT WITH CARRY CLEARED IF IT IS 


DX 
Cx 
SI 
DI 


;SAVE RETURN ADDRESS 
;GET LENGTH OF ARRAYS 
;GET BASE ADDRESS OF ARRAY 2 
;GET BASE ADDRESS OF ARRAY 1 
;CLEAR CARRY TO START 


ADEXIT ;BRANCH CEXIT) IF ARRAY LENGTH IS ZERO 


z;ADD ARRAYS ONE BYTE AT A TIME 


; 

7 

, 

7 

; Title: 

; Name: 

7 

, 

; 

; Purpose: 

7 

, 

; Entry: 

, 

7 

7 

; 

, 

7 

7 

, 

7 

7 

7 

; 

; 

, 

7 

; Exit: 

, 

; Registers Used: 

, 

; Time: 

; 

; Size: 

7 

, 

, 

MPBADD: 
a 
POP 
POP 
POP 
POP 
CLC 
JCXZ 
7 
CLD 

ADDBYT: 
LODSB 


;SET AUTOINCREMENTING 


;GET BYTE FROM ARRAY 2 
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ADC AL, CDI] 7ADD WITH CARRY TO BYTE FROM ARRAY 1 
STOSB 7SAVE SUM IN ARRAY 1 
LOOP ADDBYT 7CONTINUE UNTIL ALL BYTES SUMMED 


7 
7EXIT TO RETURN ADDRESS 


. 
a 


ADEXIT: 
JMP DX 7EXIT TO RETURN ADDRESS 
; 
, 
; SAMPLE EXECUTION 
7 
; 
SC3A: 
MOV BX, CAY1ADR] 7GET FIRST OPERAND 
PUSH BX 
MOV BX, CAY2ADR] 7GET SECOND OPERAND 
PUSH BX 
MOV AX,SZAYS _  ,LENGTH OF ARRAYS IN BYTES 
PUSH AX 
CALL MPBADD ,MULTIPLE-PRECISION BINARY ADDITION 
7RESULT OF 12345678H + QYABCDEFOH 
7 = ACF13568H 
7 IN MEMORY AY1 = 68H 
; AY1+1 = 35H 
; AY1+2 = FiH 
; AY1+3 = ACH 
; AY1+4 = QOH 
; AY1+5 = QOH 
; AY1+6 = QOH 
JMP SC3A ;REPEAT TEST 
, DATA 
SZAYS EQU 7 7LENGTH OF ARRAYS IN BYTES 
AY1ADR DW AY1 7BASE ADDRESS OF ARRAY 1 
AY2ADR DW AY2 7BASE ADDRESS OF ARRAY 2 
AY1 DB 78H,56H,34H,12H,0,0,0 7FIRST OPERAND 
AY2 DB OFOH,ODEH,OBCH,9AH,0,0,0 7 SECOND OPERAND 


END 


3B Multiple-precision binary subtraction (MPBSUB) 53 


3B Multiple-precision binary subtraction 
(MPBSUB}- 


Subtracts two multi-byte unsigned binary numbers. Both are stored with 
their least significant bytes at the lowest address. The subtrahend 
(number to be subtracted) is stored on top of the minuend (number 
from which it is subtracted). The difference replaces the minuend. 


Procedure The program clears the Carry flag initially and subtracts 
the subtrahend from the minuend one byte at a time, starting with the 
least significant bytes. The final Carry flag indicates whether the overall 
subtraction required a borrow. A length of 0 causes an immediate exit 
with no subtraction. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of operand length in bytes 
High byte of operand length in bytes 


Low byte of base address of subtrahend 
High byte of base address of subtrahend 


Low byte of base address of minuend 
High byte of base address of minuend 


Exit conditions 


Minuend replaced by minuend minus subtrahend 


Example 


Data: Length of operands (in bytes) = 4 
Minuend = 2F5BA7C346 
Subtrahend = 14DF35B8i¢ 

Result: Minuend = 1A7C720Bi¢ 
Carry = 0, since no borrow is necessary. 


we Ne Ns Ye Ne Ns Ns We We Ns Ne Ve No Vs Ve Ws Ne Ns We We Vs We Vs We No VWs VWs Vs Ns No Ve Va 
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Registers used AX, CX, DI, DX, F (clears D flag), SI 


Execution time 57 cycles per byte plus 51 cycles overhead. For 
example, subtracting two 6-byte operands takes 


57 X 6 + 51 = 393 cycles 


Program size 17 bytes 


Data memory required None 


Special case A length of 0 causes an immediate exit with the minuend 
unchanged (i.e. the difference is equal to the minuend). The Carry flag 
is cleared. 


Title: Multiple-Precision Binary Subtraction 
Name: MPBSUB 


Purpose: Subtract 2 arrays of binary bytes 
Minuend := Minuend - Subtrahend 


Entry: TOP OF STACK 
Low byte of return address 
High byte of return address 
Low byte of array length in bytes 
High byte of array length in bytes 
Low byte of subtrahend address 
High byte of subtrahend address 
Low byte of minuend address 
High byte of minuend address 


The arrays are unsigned binary numbers, 
ARRAYCO] is the least significant 
byte, and ARRAYCLENGTH-1] is the 
most significant byte. 
Exit: Minuend := Minuend - Subtrahend 


Registers Used: AX,CX,DI,DX,F (clears D flag),SI 


Time: 57 cycles per byte plus 51 cycles overhead 


we “We We Ne Ne 


MPBSUB: 


SUBBYT: 


SBEXIT: 


we “Ss Ne Ne Ne 


SC3B: 


Size: 


3B Multiple-precision binary subtraction (MPBSUB) 


7CHECK IF 


Program 17 bytes 


LENGTH OF ARRAYS IS ZERO 


7EXIT WITH CARRY CLEARED IF IT IS 


at 
POP 
POP 
POP 
POP 
CLC 
JCXZ 


7 

7 SUBTRACT 
7 

CLD 


MOV 
SBB 
STOSB 
INC 
LOOP 


DX 7 SAVE RETURN ADDRESS 

CX 7GET LENGTH OF ARRAYS 

SI 7GET BASE ADDRESS OF SUBTRAHEND 
DI 7GET BASE ADDRESS OF MINUEND 


7NO BORROW INITIALLY 
SBEXIT 7BRANCH (EXIT) IF LENGTH IS ZERO 


ARRAYS ONE BYTE AT A TIME 
7SET AUTOINCREMENTING 


AL,CDI] 7GET BYTE OF MINUEND 

AL,CS1] 7 SUBTRACT BYTE OF SUBTRAHEND WITH BORROW 
7 SAVE DIFFERENCE IN MINUEND 

SI 

SUBBYT 7CONTINUE UNTIL ALL BYTES SUBTRACTED 


, 
7EXIT TO RETURN ADDRESS 


JMP 


DX 7EXIT TO RETURN ADDRESS 


SAMPLE EXECUTION 


MOV 
PUSH 
MOV 
PUSH 
MOV 
PUSH 
CALL 


BX,CAY1ADR] 7GET BASE ADDRESS OF MINUEND 

BX, CAYZADRI 7GET BASE ADDRESS OF SUBTRAHEND 

AX, SZAYS 7GET LENGTH OF ARRAYS IN BYTES 

NPBSUB ,MULTIPLE-PRECISION BINARY SUBTRACTION 
7RESULT OF 2F3E4D5CH-175E809FH 


7 = 17D0FCCBDH 

7 IN MEMORY AY1 = BDH 
; AY1+1 = CCH 
; AY1+2 = DFH 
; AY1+3 = 17H 
; AY1+4 = QOH 
; AY1+5 = OOH 


AY1+6 = OOH 


06 


7, DATA 
, 
SZAYS 


AY1ADR 
AY2ADR 


AY1 
AY2 
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EQU 


DW 
DW 


DB 
DB 


END 


7 7LENGTH OF ARRAYS IN BYTES 
AY1 7BASE ADDRESS OF ARRAY 1 
AY2 7BASE ADDRESS OF ARRAY 2 


9CH,4DH,3EH,2FH,0,0,0 7MINUEND 
9FH,80H,5EH,17H,0,0,0 7 SUBTRAHEND 
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3C Multiple-precision binary multiplication 
(MPBMUL) 


Multiplies two multi-byte unsigned binary numbers. Both are stored 
with their least significant bytes at the lowest address. The product 
replaces the multiplicand. The length of the numbers (in bytes) is 255 or 
less. Only the less significant bytes of the product are returned to 
provide compatibility with other multiple-precision binary operations. 


Procedure The program multiplies the numbers one byte at a time, 
starting with the least significant bytes. It keeps a full double-length 
unsigned partial product in memory locations starting at PROD (more 
significant bytes) and in the multiplicand (less significant bytes). The less 
significant bytes of the product replace the multiplicand as it is shifted. 
A 0 length causes an exit with no multiplication. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of length of operands in bytes 
High byte of length of operands in bytes (always 0) 


Low byte of base address of multiplicand 
High byte of base address of multiplicand 


Low byte of base address of multiplier 
High byte of base address of multiplier 


Exit conditions 


Multiplicand replaced by multiplicand times multiplier 


Example 


Data: Length of operands (in bytes) = 4 
Multiplicand = 0005D1F716 = 381 43140 
Multiplier = OOO0O0AB1 16 = 273710 


08 
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Result: Multiplicand = 3E39D1C716 = 1043 976 6471 


Note that MPBMUL returns only the less significant bytes (i.e. the 
number of bytes in the multiplicand and multiplier) of the product to 
maintain compatibility with other multiple-precision binary arithmetic 
operations. The more significant bytes of the product are available 
starting with their least significant byte at address PROD. The user may 
need to check those bytes for a possible overflow. 


Registers used AX, BX, CX, DI, DX, F (clears D flag), SI 


Execution time Depends on the length of the operands and on the 
number of non-zero bytes in the multiplicand. If all the multiplicand’s 
bytes are non-zero, the execution time is approximately 


179 x LENGTH? + 115 x LENGTH + 84 


If, for example, the operands are 4 bytes (32 bits) long, the execution 
time is approximately 


179 X 16+ 115 xX 4 + 84 = 2864 + 460 + 84 = 3408 cycles 


There is a savings of 179 x LENGTH cycles for each multiplicand byte 
that is 0. 


Program size 76 bytes 


Data memory required 256 bytes anywhere in RAM for the more 
significant bytes of the partial product (starting at address PROD). This 
includes an overflow byte. Also 4 stack bytes. 


Special case A length of 0 causes an immediate exit with the product 
equal to the multiplicand. The Carry flag is cleared. 


Title: Multiple-Precision Binary Multiplication 


Name: 


MPBMUL 


a7 

; Purpose: 

7 

7 

; Entry: 

, 

, 

, 

, 

’ 

7 

, 

7 

, 

7 

, 

7 

, 

’ 

; Exit: 

7 

; Registers Used: 

, 

; Time: 

, 

’ 

, 

; Size: 

7 

7 

, 

MPBMUL: 

’ 

, 

, 

, 

, 
PUSH 
MOV 
MOV 
JCXZ 
MOV 

, 

7 

, 

, 


REP 


3C Multiple-precision binary multiplication (MPBMUL)} 


Multiply 2 arrays of binary bytes 
Multiplicand := Multiplicand X multiplier 


TOP OF STACK 
Low byte of return address 
High byte of return address 
Low byte of array length in bytes 
High byte of array length in bytes (always 0) 
Low byte of multiplicand address 
High byte of multiplicand address 
Low byte of multiplier address 
High byte of multiplier address 


The arrays are unsigned binary numbers 
with a maximum length of 255 bytes, 
ARRAYLO] is the least significant 
byte, and ARRAYCLENGTH-1] is the 

most significant byte. 


Multiplicand := Multiplicand X multiplier 
AX,BX,CX,DI,DX,F (clears D flag),SI 

Assuming all multiplicand bytes are non-zero, 
then the time is approximately: 


(179 X lLength*2) + (115 X Length) + 84 cycles 


Program 76 bytes 
Data 256 bytes plus 2 stack bytes 


CHECK LENGTH OF OPERANDS 
EXIT IF LENGTH IS ZERO 
SAVE LENGTH FOR USE AS LOOP COUNTER 


BP 7 SAVE BASE POINTER 

BP,SP 7GET START OF PARAMETER AREA 
CX,CBP+4] 7GET ARRAY LENGTH 

EXITML zEXIT CRETURN) IF LENGTH IS ZERO 
DX ,CX 7SAVE LENGTH AS LOOP COUNTER 


CLEAR PARTIAL PRODUCT AREA, SIZE IS OPERAND LENGTH 
PLUS 1 BYTE FOR OVERFLOW 


CLD 
MOV 
INC 
SUB 
STOSB 


7SET AUTOINCREMENTING 
DI,OFFSET PROD ;POINT TO PARTIAL PRODUCT 
CX ;AREA SIZE IS OPERAND LENGTH PLUS 1 
AL,AL 7GET ZERO FOR CLEARING 

7CLEAR PARTIAL PRODUCT AREA 


LOOP OVER ALL MULTIPLICAND BYTES 
MULTIPLYING EACH ONE BY ALL MULTIPLIER BYTES 


60 


. 
a 


MCNDLP: 


“He Ne Ne Ne Ne 


CRYTHR: 


2 
a 


e 
A 


a 
EXITML: 


PLRLP: 
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MOV BX,CBP+6] 7GET MULTIPLICAND ADDRESS 

TEST BYTE PTR CBX],OFFH ;CHECK MULTIPLICAND DIGIT 

JZ SKIP 7NO NEED TO MULTIPLY IF DIGIT IS O 
MOV SI1,CBP+8] 7GET MULTIPLIER ADDRESS 

MOV DI,OFFSET PROD ;POINT TO PARTIAL PRODUCT 

MOV CX,CBP+4] 7GET ARRAY LENGTH 


MULTIPLY BYTE OF MULTIPLICAND TIMES EACH BYTE OF 
MULTIPLIER 


LODSB 7GET MULTIPLIER BYTE 

MUL CBXI 7MULTIPLY TIMES MULTIPLICAND BYTE 
ADD CDI] ,AX 7ADD RESULT TO PARTIAL PRODUCT 
INC DI 7 INCREMENT PRODUCT POINTER 

JNC PLREND 7JUMP IF NO CARRY 

PUSH DI 7ELSE SAVE PRODUCT POINTER 

INC DI 7POINT TO NEXT BYTE OF PRODUCT 
INC BYTE PTR CDI] ;ADD CARRY TO NEXT BYTE 

JZ CRYTHR 7LOOP WHILE CARRY PROPAGATES 

POP DI 7RESTORE PRODUCT POINTER 

LOOP MPLRLP ;LOOP THROUGH ALL MULTIPLIER BYTES 


MOVE LOW BYTE OF PARTIAL PRODUCT INTO RESULT AREA 
THIS OVERWRITES THE MULTIPLICAND BYTE USED IN THE 
LATEST MULTIPLICATION LOOP 


MOV CX,CBP+4] 7GET ARRAY LENGTH 

MOV DI,OFFSET PROD ;DESTINATION IS PARTIAL PRODUCT 
MOV SI,DI 7SOURCE IS ONE BYTE HIGHER 

INC SI 7 THAN DESTINATION 

MOV AL,CDOI] 7GET LOWEST PRODUCT BYTE 

MOV CBX1,AL 7STORE IN MULTIPLICAND 

INC BX 7POINT TO NEXT MULTIPLICAND BYTE 


SHIFT PARTIAL PRODUCT RIGHT ONE BYTE 
MOVSB 7SHIFT PRODUCT RIGHT ONE BYTE 
COUNT MULTIPLICAND DIGITS 


DEC DX 7DECREMENT MULTIPLICAND DIGIT COUNT 
JNZ MCNDLP ;LOOP UNTIL ALL BYTES MULTIPLIED 


REMOVE PARAMETERS FROM STACK AND EXIT 


POP BP 7RESTORE BASE POINTER 
RET 6 7RETURN, REMOVING PARAMETERS FROM 
7 STACK 


DATA 


, 
PROD 


we We Ne Ne No 


SC3C: 


. 
a 


, DATA 
; 
SZAYS 


AY1ADR 
AY2ADR 


AY1 
AY2 


3C Multipie-precision binary multiplication (MPBMUL) 


DB 


256 DUP(O) 7PARTIAL PRODUCT BUFFER WITH OVERFLOW 
,;BYTE 


SAMPLE EXECUTION 


MOV 
PUSH 
MOV 
PUSH 
MOV 
PUSH 
JSR 


JMP 


EQU 


DW 
DW 


DB 
DB 


BX,CAY2ADR] 7GET MULTIPLIER 


BX 

BX,LAY1ADR] 7GET MULTIPLICAND 

BX 

AX,SZAYS 7GET LENGTH OF OPERAND IN BYTES 
AX 


MPBMUL 7MULTIPLE-PRECISION BINARY MULTIPLICATION 
7RESULT OF 12345H X 1234H = 14B60404H 


3 IN MEMORY AY1 = 04H 

7 AY1+1 = 04H 

; AY1+2 = B6H 

; AY1+3 = 14H 

; AY1+4 = QOH 

; AY1+5 = QOH 

; AY1+6 = OOH 
$C3C ;REPEAT TEST 
7 ;LENGTH OF OPERANDS IN BYTES 
AY1 7BASE ADDRESS OF ARRAY 1 
AY2 ;BASE ADDRESS OF ARRAY 2 
45H,23H,1,0,0,0,0 ;MULTIPLICAND 
34H,12H,0,0,0,0,0 ,MULTIPLIER 
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3D Multiple-precision binary division 
(MPBDIV) 


Divides two multi-byte unsigned binary numbers. Both are stored with 
their least significant bytes at the lowest address. The quotient replaces 
the dividend, and the address of the least significant byte of the remain- 
der ends up in register BX. The length of the numbers (in bytes) is 255 
or less. The Carry flag is cleared if no errors occur; if a divide by 0 is 
attempted, the Carry flag is set to 1, the dividend is left unchanged, and 
the remainder is set to 0. 


Procedure The program divides using the standard shift-and-subtract 
algorithm, shifting quotient and dividend and placing a 1 bit in the 
quotient each time a trial subtraction succeeds. An extra buffer holds 
the result of the trial subtraction; that buffer is simply switched with the 
buffer holding the dividend if the subtraction succeeds. The program 
sets the Carry flag if the divisor is 0 and clears Carry otherwise. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of operand length in bytes 
High byte of operand length in bytes (always 0) 


Low byte of base address of divisor 
High byte of base address of divisor 


Low byte of base address of dividend 
High byte of base address of dividend 


Exit conditions 


Dividend replaced by quotient (dividend divided by divisor) 

If the divisor is non-zero, Carry = 0 and the result is normal 

If the divisor is 0, Carry = 1, the dividend is unchanged, and the 
remainder is 0 : 

The remainder is stored starting with its least significant byte at the 
address in BX 


3D Multiple-precision binary division (MPBDIV} 


Example 


Data: Length of operands (in bytes) = 3 
Top operand (array 2 or divisor) = 000F4516 = 3 90940 
Bottom operand (array 1 or dividend) = 35A2F/ig = 
3515 12716 

Result: Bottom operand (array 1) = Bottom operand (array 1)/Top 
operand (array 2) = 00038316 = 89910 
Remainder (starting at address in BX) = 0003A816 = 93610 
Carry flag = 0 to indicate no divide-by-zero error 


Registers used AX, BX, CX, DI, DX, F (clears D flag), SI 


Execution time Depends on the length of the operands and on the 
number of 1 bits in the quotient (requiring a replacement of the divi- 
dend by the remainder). If the average number of 1 bits in the quotient 
is four per byte, the execution time is approximately 


1072 x LENGTH? + 1142 x LENGTH + 165 cycles 


where LENGTH is the length of the operands in bytes. If, for example, 
LENGTH = 4 (32-bit division), the approximate execution time is 


1072 x 47 + 1142 x 4 + 165 = 21 885 cycles 


Program size 133 bytes 


Data memory required 514 bytes anywhere in RAM for the buffers 
holding either the high dividend or the result of the trial subtraction (255 
bytes starting at addresses HIDE1 and HIDE2, respectively), and for 
the pointers that assign the buffers to specific purposes (2 bytes starting 
at addresses HDEPTR and DIFPTR, respectively). Also 2 stack bytes. 


Special cases 


1. A length of 0 causes an immediate exit with the Carry flag cleared, 
the quotient equal to the original dividend, and the remainder undefined. 
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2. A divisor of 0 causes an exit with the Carry flag set to 1, the quotient 
equal to the original dividend, and the remainder equal to 0. 





Title: Multiple-Precision Binary Division 
Name: MPBDIV 
Purpose: Divide 2 arrays of binary bytes 


Array1 := Array 1 / Array 2 


Entry: TOP OF STACK 
Low byte of return address 
High byte of return address 
Low byte of array length in bytes 
High byte of array length in bytes (always 0) 
Low byte of divisor address 
High byte of divisor address 
Low byte of dividend address 
High byte of dividend address 


The arrays are unsigned binary numbers 
with a maximum Length of 255 bytes, 
ARRAYCO] is the least significant 
byte, and ARRAYCLENGTH-1] jis the 

most significant byte. 


Exit: Array1 := Array / Arraye 
Register BX = Base address of remainder 
If no errors then 


Carry := 0 

else 
divide-by-zero error 
Carry := 1 


quotient := array 1 unchanged 
remainder := 0 


Registers Used: AX,BX,CX,DI,DX,F (clears D flag),SI 
Time: Assuming there are lLength/2 1 bits in the 


quotient, then the time is approximately 
(1072 X Length*2) + (1142 X Length) + 


165 cycles 
Size: Program 133 bytes 
Data 514 bytes plus 2 stack bytes 
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MPBDIV: 


we We We Ne Nea Ns Ne 


CLRHI: 


we “Ne Ne Ne 


REPE 


, 
7 
, 
INITDV: 
, 


7 


a 


3D Multiple-precision binary division (MPBDIV) 


EXIT INDICATING NO ERROR IF LENGTH OF OPERANDS IS ZERO 


PUSH BP 7 SAVE BASE POINTER 

MOV BP,SP 7GET BASE ADDRESS OF PARAMETERS 

MOV CX,CBP+4] 7GET LENGTH OF OPERANDS 

JCXZ GOODRT 7BRANCH (GOOD EXIT) IF LENGTH IS ZERO 
MOV DX ,CX 7 SAVE LENGTH 


SET UP HIGH DIVIDEND AND DIFFERENCE POINTERS 

CLEAR HIGH DIVIDEND AND DIFFERENCE ARRAYS 

ARRAYS 1 AND 2 ARE USED INTERCHANGEABLY FOR THESE TWO 
PURPOSES. THE POINTERS ARE SWITCHED WHENEVER A 
TRIAL SUBTRACTION SUCCEEDS 


CLD 7 SET AUTOINCREMENTING 

MOV SI,OFFSET HIDE1 ;GET BASE ADDRESS OF ARRAY 1 
MOV CHDEPTRI,SI ;DIVIDEND POINTER = ARRAY 1 
MOV DI,OFFSET HIDE2 ;GET BASE ADDRESS OF ARRAY 2 
MOV CDIFPTRI,SI ;DIFFERENCE POINTER = ARRAY 2 
SUB AL,AL 7GET ZERO FOR CLEARING ARRAYS 
MOV CS1],AL ;CLEAR BYTE OF ARRAY 1 

STOSB 7CLEAR BYTE OF ARRAY 2 

INC SI 

LOOP CLRHI 7CONTINUE THROUGH ALL BYTES 


CHECK WHETHER DIVISOR IS ZERO 
IF IT IS, EXIT INDICATING DIVIDE-BY-ZERO ERROR 


MOV CX ,DX 7GET LENGTH OF OPERANDS 
MOV S1,CBP+6] 7GET BASE ADDRESS OF DIVISOR 
SUB AL,AL 7 START INDICATOR AT ZERO 
SCASB 7SCAN DIVISOR UNTIL ALL BYTES 
7 EXAMINED OR NON-ZERO BYTE FOUND 
JNE INITDV ;BRANCH IF NON-ZERO BYTE FOUND 
STC 7ALL BYTES ARE ZERO - INDICATE 
7 DIVIDE-BY-ZERO ERROR 
JMP DVEXIT 7EXIT INDICATING ERROR 


DIVIDE USING TRIAL SUBTRACTIONS 


BIT COUNT = 8 X ARRAY LENGTH + 1 


MOV CX ,DX 7GET ARRAY LENGTH 

SHL CX,1 ;MULTIPLY LENGTH TIMES 8 TO GET 
SHL CX,1 ; THE NUMBER OF BITS IN THE 
SHL CX,1 7 DIVIDEND ARRAY 

INC Cx ;MUST DO 1 EXTRA SHIFT 

MOV CBP+4],CX 7SAVE SHIFT COUNT ON STACK 


SHIFT QUOTIENT AND UPPER DIVIDEND LEFT 1 BIT 
CARRY IN IS 1 IF PREVIOUS SUBTRACTION WAS SUCCESSFUL 


DIVLOOP: 


HFTQT: 


we “Ne NS 


SHFTDV: 


we Ne Ne Ne 


ws “We Ne Ne 


SUBDVS: 


‘we “Ye Na Ne Ne 


‘Ne Ns Noe 
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POINTER TO UPPER DIVIDEND IS IN HDEPTR 


CLC 7CLEAR CARRY INITIALLY 
MOV CX ,DX 7GET ARRAY LENGTH 
MOV DI,CBP+8] 7GET QUOTIENT ADDRESS 


SHIFT QUOTIENT LEFT 1 BIT 
CARRY IN IS RESULT OF PREVIOUS TRIAL SUBTRACTION 


RCL BYTE PTR CDI1,1 7SHIFT QUOTIENT BYTE LEFT 
INC DI 7POINT TO NEXT BYTE 
LOOP SHFTQT 7SHIFT ALL BYTES OF QUOTIENT 


SHIFT UPPER DIVIDEND LEFT WITH CARRY FROM LOWER DIVIDEND 


MOV CX,DX 7GET ARRAY LENGTH 

MOV DI,CHDEPTRI 7GET ADDRESS OF UPPER DIVIDEND 

RCL BYTE PTR COIJ,1 7 SHIFT UPPER DIVIDEND BYTE LEFT 
INC DI 7POINT TO NEXT BYTE 

LOOP SHFTDV 7COUNT BYTES 


CHECK IF FINAL SHIFT OF QUOTIENT HAS BEEN DONE 
EXIT WITH RESULT IF SO, ELSE DO NEXT SUBTRACTION 


DEC WORD PTR CBP+4] 7DECREMENT SHIFT COUNT 
JZ GOODRT 7EXIT IF DONE 


TRIAL SUBTRACTION OF DIVISOR FROM DIVIDEND 
SAVE DIFFERENCE IN CASE IT IS NEEDED LATER 


MOV S1,CHDEPTRI 7POINT TO UPPER DIVIDEND 

MOV BX, CBP+6] 7POINT TO DIVISOR 

MOV DI,CDIFPTRI 7POINT TO BUFFER FOR DIFFERENCE 
CLC 7CLEAR BORROW INITIALLY 

MOV CX,DX 7GET ARRAY LENGTH 

LODSB 7GET BYTE OF DIVIDEND 

SBB AL, CBX] 7SUBTRACT BYTE OF DIVISOR 

STOSB 7 SAVE DIFFERENCE IN BUFFER 

INC BX 7 INCREMENT DIVISOR POINTER 

LOOP SUBDVS 7COUNT BYTES 


NEXT BIT OF QUOTIENT IS 1 IF SUBTRACTION WAS SUCCESSFUL, 
O IF IT WAS NOT 
THIS IS COMPLEMENT OF FINAL BORROW FROM SUBTRACTION 


CMC 7NEXT BIT OF QUOTIENT = COMPLEMENT 
7 OF FINAL BORROW 

JNC DIVLOOP 7DO NEXT SHIFT IF TRIAL SUBTRACTION 
7 FAILED 


TRIAL SUBTRACTION SUCCEEDED, SO REPLACE UPPER DIVIDEND 
WITH DIFFERENCE BY SWITCHING POINTERS 


es 
a 


e 
a 


a 
GOODRT: 


e 
7 


e 
wv 


a 
DVEXIT: 


, 
, 
, 
HDEPTR 
DIFPTR 


HIDE1 
HIDE2 


we “Na Neo No 


SC3D: 


> DATA 


3D Multiple-precision binary division (MPBDIV) 


MOV 
XCHG 


MOV 


JMP 


AX, CHDEPTR] 
AX, CDIFPTRI 


CHDEPTRI,AX 


DIVLOOP 


sGET OLD DIVIDEND POINTER 
;DIVIDEND POINTER BECOMES NEW 
3 DIFFERENCE POINTER FOR NEXT 


7 ITERATION 


7DIFFERENCE BECOMES DIVIDEND FOR 
7 NEXT ITERATION 


700 NEXT SHIFT 


CLEAR CARRY TO INDICATE NO ERRORS 


CLC 


REMOVE PARAMETERS FROM 


MOV 
POP 
RET 


DATA 


DW 
DW 


DB 
DB 


,CLEAR CARRY - NO DIVIDE-BY-ZERO ERROR 


STACK AND EXIT 


BX,CHDEPTRI 7GET BASE ADDRESS OF REMAINDER 

BP 7RESTORE BASE POINTER 

6 7RETURN, DISCARDING PARAMETERS 

7 FROM STACK 

0 7POINTER TO HIGH DIVIDEND 

0 7POINTER TO DIFFERENCE BETWEEN HIGH 
7 DIVIDEND AND DIVISOR 

255 DUP(O) 7HIGH DIVIDEND BUFFER 1 

255 DUP(O) 7HIGH DIVIDEND BUFFER 2 


SAMPLE EXECUTION 


MOV 
PUSH 
MOV 
PUSH 
MOV 
PUSH 
JSR 


JMP 


BX,CAY1ADR] 
BX 
BX,CAY2ADR] 
BX 

AX,SZAYS 

AX 


7GET DIVIDEND 


7GET DIVISOR 


7LENGTH OF ARRAYS IN BYTES 


MPBDIV 7MULTIPLE-PRECISION BINARY DIVISION 
7RESULT OF 14B60404H / 


e 
7 


we “Ws Ns Me Ne Ne 


SC3D 


IN MEMORY AY1 
AY1+1 
AY1+2 
AY1+3 
AY1+4 
AY1+5 
AY1+6 


1234H = 12345H 
45H 


= 23H 


O1H 
OOH 
OOH 
OOH 
OOH 
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a 

SZAYS EQU 7 ;LENGTH OF ARRAYS IN BYTES 

AY1ADR DW AY1 ;BASE ADDRESS OF ARRAY 1 (DIVIDEND) 
AY2ADR DW AY2 ;BASE ADDRESS OF ARRAY 2 (DIVISOR) 
AY1 DB 04H,04H,B6H,14H,0,0,0,0 7 DIVIDEND 

AY2 DB 34H,12H,0,0,0,0,0,0 7DIVISOR 


END 
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3E Multiple-precision binary comparison 
(MPBCMP 





Compares two multi-byte unsigned binary numbers and sets the Carry 
and Zero flags. Both numbers are stored with their least significant bytes 
at the lowest address. Sets the Zero flag to 1 if the operands are equal 
and to 0 otherwise. Sets the Carry flag to 1 if the subtrahend (the 
number stored higher in the stack) is larger than the minuend and to 0 
otherwise. Thus, it sets the flags as if it had subtracted the subtrahend 
from the minuend. 


Procedure The program compares the operands one byte at a time, 
starting with the most significant bytes and continuing until it finds 
corresponding bytes that are not equal. If all the bytes are equal, it exits 
with the Zero flag set to 1. Note that the comparison starts with the 
operands’ most significant bytes, whereas the subtraction (Subroutine 
3B) starts with the least significant bytes. 





Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of operand length in bytes 
High byte of operand length in bytes 


Low byte of base address of subtrahend 
High byte of base address of subtrahend 


Low byte of base address of minuend 
High byte of base address of minuend 


Exit conditions 
Flags set as if subtrahend had been subtracted from minuend 
Zero flag = 1 if subtrahend and minuend are equal, 0 if they are not equal 


Carry flag = 1 if subtrahend is larger than minuend in the unsigned 
sense, 0 if it less than or equal to the minuend 
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Examples 
1. Data: 


Result: 


2. Data: 


Result: 


3. Data: 


Result: 


Length of operands (in bytes) = 6 

Top operand (subtrahend) = 19D028A193EA1¢ 
Bottom operand (minuend) = 4E67BC15A2664¢6 
Zero flag = 0 (operands are not equal) 

Carry flag = 0 (subtrahend is not larger than minuend) 


Length of operands (in bytes) = 6 

Top operand (subtrahend) = 19D028A193EA1¢6 
Bottom operand (minuend) = 19D028A193EAi6 
Zero flag = 1 (operands are equal) 

Carry flag = 0 (subtrahend is not larger than minuend) 


Length of operands (in bytes) = 6 
Top operand (subtrahend) = 19D028A193EAi¢ 


Bottom operand (minuend) = 0F37E5991D7Cj6 


Zero flag = 0 (operands are not equal) | 
Carry flag = 1 (subtrahend is larger than minuend) 


Registers used AX, CX, DI, DX, F (sets D flag), SI 


Execution time 


must examine requires 24 cycles. 


Examples 


1. Comparing two 6-byte numbers that are equal takes 
24 X 6 + 64 = 208 cycles 


2. Comparing two 8-byte numbers that differ in the next to most 


significant bytes takes 
24 X 2 + 64 = 112 cycles 


Program size 20 bytes 


24 cycles per byte that must be examined plus 
approximately 64 cycles overhead. That is, the program continues until 
it finds corresponding bytes that are not the same; each pair of bytes it 
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Data memory required None 


Special case 


A length of 0 causes an immediate exit with both the 


Carry flag and the Zero flag set to 1. 


Title: 
Name: 


Purpose: 


Entry: 


Exit: 


Registers Used: 


Time: 


Size: 


Multiple-Precision Binary Comparison 
MPBCMP 


Compare 2 arrays of binary bytes and 


return the Carry and Zero flags set or 
cleared 


TOP OF STACK 
Low byte of return address 
High byte of return address 
Low byte of operand length in bytes 
High byte of operand length in bytes 
Low byte of subtrahend address 
High byte of subtrahend address 
Low byte of minuend address 
High byte of minuend address 


The arrays are unsigned binary numbers, 
ARRAYLO] is the least significant 

byte, and ARRAYCLENGTH-1] is the 

most significant byte. 


IF minuend = subtrahend THEN 
c=0,2=1 

IF minuend > subtrahend THEN 
Cc=0,Z=0 

IF minuend < subtrahend THEN 
C=1,Z=0 

IF array length = O THEN 
C=1,Z=1 


AX,CX,DI,DX,F (sets D flag),SI 


24 cycles per byte that must be examined plus 
64 cycles overhead 


Program 20 bytes 


CHECK IF LENGTH OF ARRAYS IS ZERO 
EXIT WITH SPECIAL FLAG SETTING (C=1, Z=1) IF IT IS 


PBCMP: 
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we We Ne Ne 


REPNE 


XITCP: 


we Ne Ne Ne No 


SC3E: 


s 
a 


> DATA 
7 
SZAYS 


AY1ADR 
AY2ADR 
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POP DX 7 SAVE RETURN ADDRESS 

POP > ¢ 7GET LENGTH OF ARRAYS IN BYTES 
POP DI 7GET BASE ADDRESS OF SUBTRAHEND 
POP SI 7GET BASE ADDRESS OF MINUEND 
AND CX,CX 7 TEST ARRAY LENGTH 

STC 7SET CARRY IN CASE LENGTH IS 0 


JZ EXITCP 7BRANCH C(CEXIT) IF LENGTH IS ZERO 
| 7; C=1,Z=1 IN THIS CASE 
NOTE: CANNOT USE JCXZ HERE SINCE 
7 ROUTINE MUST RETURN WITH FLAGS 
7, SET. 


COMPARE ARRAYS BYTE AT A TIME UNTIL UNEQUAL BYTES 
ARE ENCOUNTERED 


ADD DI,CX 7 CALCULATE ADDRESS JUST BEYOND END 
7 OF SUBTRAHEND 
ADD SI,CX 7CALCULATE ADDRESS JUST BEYOND END 
7 OF MINUEND 
DEC DI 7GO BACK TO LAST BYTE OF SUBTRAHEND 
DEC SI 7GO BACK TO LAST BYTE OF MINUEND 
STD 7SET AUTODECREMENTING 
CMPSB 7COMPARE MINUEND AND SUBTRAHEND THROUGH 


7 ALL BYTES OR UNTIL UNEQUAL BYTES 
7 ARE FOUND 
EXIT TO RETURN ADDRESS 


JMP DX 7EXIT TO RETURN ADDRESS 


SAMPLE EXECUTION 


MOV BX, CAY1ADR] 7GET BASE ADDRESS OF MINUEND 
PUSH BX 

MOV BX,CAY2ADR] 7GET BASE ADDRESS OF SUBTRAHEND 
PUSH BX 

MOV AX,SZAYS 7GET LENGTH OF OPERANDS IN BYTES 
PUSH AX 

JSR MPBCMP ,MULTIPLE-PRECISION BINARY COMPARISON 


7RESULT OF COMPARE (2F3E4D5CH,175E809FH) 
; IS C=0,2=0 


JMP SC3E 7REPEAT TEST 
EQU 7 7LENGTH OF OPERANDS IN BYTES 
DW AY1 7BASE ADDRESS OF ARRAY 1 


DW AY2 7BASE ADDRESS OF ARRAY 2 
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AY1 DB 5CH,4DH,3EH,2FH,0,0,0 7MINUEND 
AY2 DB 9FH,80H,5EH,17H,0,0,0 7 SUBTRAHEND 


END 
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3F Multiple-precision decimal addition 
(MPDADD) 


Adds two multi-byte unsigned decimal (BCD) numbers. Both numbers 
are stored with their least significant digits at the lowest address. The 
sum replaces the number with the base address lower in the stack. 


Procedure ‘The program clears the Carry flag initially and then adds 
the operands one byte (two digits) at a time, starting with the least 
significant digits. The final Carry flag indicates whether the overall 
addition produced a carry. The sum replaces the operand with the base 
address lower in the stack (array 1 in the listing). A length of 0 causes an 
immediate exit with no addition. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of length of operands in bytes 
High byte of length of operands in bytes 


Low byte of base address of second operand (address containing the 
least significant byte of array 2) 
High byte of base address of second operand (address containing the 
least significant byte of array 2) 


Low byte of base address of first operand and sum (address containing 
the least significant byte of array 1) 
High byte of base address of first operand and sum (address containing 
the least significant byte of array 1) 


Exit conditions 


First operand (array 1) replaced by first operand (array 1) plus second 
operand (array 2) 
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Example 


Data: Length of operands (in bytes) = 6 
Top operand (array 2) = 1960288193154¢ 
Bottom operand (array 1) = 2934716059876 
Result: Bottom operand (array 1) = Bottom operand (array 1) 
+ Top operand (array 2) = 4895004253021¢ 
Carry = 0 


Registers used AX, CX, DI, DX, F (clears D flag), SI 


Execution time 58 cycles per byte plus 53 cycles overhead. For 
example, adding two 6-byte operands takes 


58 X 6 + 53 = 401 cycles 


Program size 17 bytes 


Data memory required None 


Special case A length of 0 causes an immediate exit with the sum 
equal to the bottom operand (i.e. array 1 is unchanged). The Carry flag 
is cleared. 


Title: Multiple-Precision Decimal Addition 
Name: MPDADD 
Purpose: Add 2 arrays of BCD bytes 
Array1 := Array 1 + Array 2 
Entry: TOP OF STACK 


Low byte of return address 
High byte of return address 
Low byte of array length in bytes 
High byte of array length in bytes 
Low byte of array 2 address 
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High byte of array 2 address 


’ 
; Low byte of array 1 address 
; High byte of array 1 address 
: | 
; The arrays are unsigned BCD numbers, 
; ARRAYCO] is the least significant 
; byte, and ARRAYCLENGTH-1] is the 
; most significant byte 
’ 
; Exit: Array1 := Array + Array2 
’ 
; Registers Used: AX,CX,DI,DX,F (clears D flag),SI 
, 
; Time: 58 cycles per byte plus 53 cycles overhead 
’ 
; Size: Program 17 bytes 
’ 
, 
, 
MPDADD: 
, 
;CHECK IF LENGTH OF ARRAYS IS ZERO 
zEXIT WITH CARRY CLEARED IF IT IS 
’ 
POP DX ;SAVE RETURN ADDRESS 
POP Cx ;CHECK LENGTH OF ARRAYS 
POP SI 7;GET BASE ADDRESS OF ARRAY 2 
POP DI ;GET BASE ADDRESS OF ARRAY 1 
CLC ; CLEAR CARRY TO START 
JCXZ ADEXIT ;BRANCH CEXIT) IF LENGTH IS ZERO 
, 
z;ADD OPERANDS 2 DIGITS AT A TIME 
CLD ;SELECT AUTOINCREMENTING 
ADDBYT: 
LODSB ;GET 2 DIGITS FROM ARRAY 2 
ADC AL,CDI]) z;ADD 2 DIGITS FROM ARRAY 1 WITH CARRY 
DAA ;MAKE ADDITION DECIMAL 
STOSB ;SAVE SUM IN ARRAY 1 
LOOP ADDBYT ;CONTINUE UNTIL ALL DIGITS SUMMED 
, 
;EXIT TO RETURN ADDRESS 
, 
ADEXIT: 
JMP DX ;EXIT TO RETURN ADDRESS 
, 
, 
; SAMPLE EXECUTION 
’ 
’ 
SC3F: 


MOV BX,CAY1ADR] 7GET FIRST OPERAND 
PUSH BX 


s 
ao 


7  ODATA 
7 
SZAYS 


AY1ADR 
AY2ADR 


AY1 
AY2 
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MOV 
PUSH 
MOV 
PUSH 
CALL 


JMP 


EQU 


DW 
DW 


DB 
DB 


BX,CAY2ADR] 7GET SECOND OPERAND 

BX 

AX,SZAYS 7LENGTH OF OPERANDS IN BYTES 

AX 

MPDADD 7MULTIPLE-PRECISION BCD ADDITION 
,RESULT OF 12345678H + 35914028H 
7 = 48259706H 


>; IN MEMORY AY1 = 06H 
; AY1+1 = 97H 
; AY1+2 = 25H 
; AY14+3 = 48H 
; AY1+4 = QOH 
; AY1+5 = OOH 
; AY1+6 = QOH 
SC3F ;REPEAT TEST 
7 7LENGTH OF OPERANDS IN BYTES 
AY1 7BASE ADDRESS OF ARRAY 1 
AY2 7;BASE ADDRESS OF ARRAY 2 


78H,56H,34H,12H,0,0,0 7FIRST OPERAND 
28H,40H,91H,35H,0,0,0 7SECOND OPERAND 
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3G Multiple-precision decimal subtraction 
(MPDSUB) 


Subtracts two multi-byte unsigned decimal (BCD) numbers. Both are 
stored with their least significant digits at the lowest address. The 
subtrahend (number to be subtracted) is stored on top of the minuend 
(number from which it is subtracted). The difference replaces the 


minuend. 


Procedure The program clears the Carry flag initially and then sub- 
tracts the subtrahend from the minuend one byte (two digits) at a time, 
starting with the least significant digits. The final Carry flag indicates 
whether the overall subtraction required a borrow. A length of 0 causes 


an immediate exit with no subtraction. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of length of operands in bytes 
High byte of length of operands in bytes 


Low byte of base address of subtrahend 
High byte of base address of subtrahend 


Low byte of base address of minuend 
High byte of base address of minuend 


Exit conditions 


Minuend replaced by minuend minus subtrahend 


Example 


Data: Length of operands (in bytes) = 6 
Minuend = 2934716059876 
Subtrahend = 19602881931546 

Result: Minuend = 0974427866721. 

Carry = 1, since no borrow is necessary 
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Registers used AX, CX, DI, DX, F (clears D flag), SI 


Execution time 61 cycles per byte plus 51 cycles overhead. For 
example, subtracting two 6-byte operands takes 


61 X 6 + 51 = 417 cycles 


Program size 18 bytes 


Data memory required None 


Special case A length of 0 causes an immediate exit with the minuend 
unchanged (i.e. the difference is equal to the minuend). The Carry flag 
is cleared. 





Title: Multiple-Precision Decimal Subtraction 
Name: MPDSUB 
Purpose: Subtract 2 arrays of BCD bytes 
Minuend := Minuend - Subtrahend 
Entry: TOP OF STACK 


Low byte of return address 

High byte of return address 

Low byte of array length in bytes 
High byte of array length in bytes 
Low byte of subtrahend address 
High byte of subtrahend address 
Low byte of minuend address 

High byte of minuend address 


The arrays are unsigned BCD numbers, 
ARRAYCO] is the Ieast significant byte, and 
ARRAYCLENGTH-1] is the most significant byte. 


Exit: Minuend : = Minuend - Subtrahend 
Registers Used: AX,CX,DI,DX,F (clears D flag),SI 
Time: 61 cycles per byte plus 51 cycles overhead 


80 


$ize: 


SUBBYT: 


SBEXIT: 


mea Ne Ne Ne Ne 


S$C3G: 
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7CHECK IF 


Program 18 bytes 


LENGTH OF ARRAYS IS ZERO 


7EXIT WITH CARRY CLEARED IF IT IS 


av 
POP 
POP 
POP 
POP 
CLC 
JCXZ 


; 
7 SUBTRACT 


a 
CLD 


MOV 
SBB 
DAS 
STOSB 
INC 
LOOP 


DX 7 SAVE RETURN ADDRESS 

Cx 7CHECK LENGTH OF ARRAYS 

SI 7GET BASE ADDRESS OF SUBTRAHEND 
DI 7GET BASE ADDRESS OF MINUEND 


7CLEAR CARRY TO START 
SBEXIT 7;BRANCH CEXIT) IF LENGTH IS ZERO 


OPERANDS 2 DIGITS AT A TIME 


7SET AUTOINCREMENTING 


AX, COI] 7GET BYTE OF MINUEND 

AL,CST] 7SUBTRACT BYTE OF SUBTRAHEND WITH BORROW 
7MAKE DIFFERENCE DECIMAL 
7SAVE DIFFERENCE IN MINUEND 

SI 

SUBBYT 7CONTINUE UNTIL ALL DIGITS SUBTRACTED 


7EXIT TO RETURN ADDRESS 


a 


JMP 


DX 7EXIT TO RETURN ADDRESS 


SAMPLE EXECUTION 


MOV 
PUSH 
MOV 
PUSH 
MOV 
PUSH 
CALL 


BX,CAY1ADR] 7GET BASE ADDRESS OF MINUEND 

BX 

BX, CAY2ADR] 7GET BASE ADDRESS OF SUBTRAHEND 

BX 

AX,SZAYS 7GET LENGTH OF OPERANDS IN BYTES 

AX 

MPDSUB 7MULTIPLE-PRECISION DECIMAL SUBTRACTION 
;RESULT OF 28364150H-17598093H 
7 = 10766057H 


; IN MEMORY AY1 = 57H 
; AY1+1 = 60H 
; AY1+2 = 76H 
; AY1+3 = 10H 
; AY1+4 = QOH 


AY1+5 = OOH 


e 
7 


7 DATA 
, 
SZAYS 


AY1ADR 
AY2ADR 


AY1 
AY2 
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JMP 


EQU 


DW 
DW 


DB 
DB 


; AY1+6 = OOH 
S$C3G 7REPEAT TEST 
7 7LENGTH OF OPERANDS IN BYTES 
AY1 7BASE ADDRESS OF ARRAY 1 
AY2 7BASE ADDRESS OF ARRAY 2 
30H,41H,36H,28H,0,0,0 7MINUEND 
93H,80H,59H,17H,0,0,0 7 SUBTRAHEND 


$2 
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3H Multiple-precision decimal multiplication 
(MPDMUL 


Multiplies two multi-byte unsigned decimal (BCD) numbers. Both 
numbers are stored with their least significant digits at the lowest 
address. The product replaces the multiplicand. The length of the 
numbers (in bytes) is 255 or less. Only the less significant bytes of the 
product are returned to provide compatibility with other multiple- 
precision decimal operations. 


Procedure The program handles each digit of the multiplicand separ- 
ately. It masks the digit off, shifts it (if it is the upper digit of a byte), and 
then uses it as a counter to determine how many times to add the 
multiplier to the partial product. The least significant digit of the partial 
product is saved as the next digit of the full product, and the partial 
product is shifted right 4 bits. The program uses a flag to determine 
whether it is currently working with the upper or lower digit of a byte. A 
length of 0 causes an exit with no multiplication. | 





Entry conditions 
Order in stack (starting from the top): 


Low byte of return address 
High byte of return address 


Low byte of length of operands in bytes 
High byte of length of operands in bytes 


Low byte of base address of multiplicand 
High byte of base address of multiplicand 


Low byte of base address of multiplier 
High byte of base address of multiplier 


Exit conditions 


Multiplicand replaced by multiplicand times multiplier. 
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Example 


Data: Length of operands (in bytes) = 4 
Multiplicand = = 000351816 
Multiplier = 00006294. 

Result: Multiplicand = 22142282616 


Note that MPDMUL returns only the less significant bytes (i.e. the 
number of bytes in the multiplicand and multiplier) of the product to 
maintain compatibility with other multiple-precision decimal arithmetic 
operations. The more significant bytes of the product are available 
starting with their least significant byte at address PROD. The user may 
need to check those bytes for a possible overflow or extend the operands 
with additional zeros. 


Registers used AX, BX, CX, DI, DX, F (clears D flag), SI 


Execution time Depends on the length of the operands and on the 
size of the digits in the multiplicand (since those digits determine how 
many times the multiplier must be added to the partial product). If the 
average digit in the multiplicand has a value of 5, then the execution 
time is approximately 


794 x LENGTH? + 439 x LENGTH + 84 cycles 


where LENGTH is the number of bytes in the operands. If, for 
example, LENGTH = 6 (12 digits), the approximate execution time is 


794 x 67 + 439 x 6 + 84 = 794 x 36 + 2634 + 84 
= 28 584 + 2718 
= 31302 cycles 


Program size 168 bytes 


Data memory required 256 bytes anywhere in RAM. This is tem- 
porary storage for the high bytes of the partial product plus an overflow 
byte (starting at address PROD). Also 2 stack bytes. 


Special case A length of 0 causes an immediate exit with the multipli- 
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cand unchanged. The more significant bytes of the product (starting at 
address PROD) are undefined. 





Title: Multiple-Precision Decimal Multiplication 

Name: MPDMUL 

Purpose: Multiply 2 arrays of BCD bytes 
Multiplicand := Multiplicand X multiplier 

Entry: TOP OF STACK 


Low byte of return address 

High byte of return address 

Low byte of length of arrays in bytes 

High byte of length of arrays in bytes (0) 
Low byte of multiplicand address 

High byte of multiplicand address 

Low byte of multiplier address 

High byte of multiplier address 


The arrays are unsigned BCD numbers 
with a maximum length of 255 bytes, 
ARRAYCO] is the least significant 
byte, and ARRAYCLENGTH-1] is the 
most significant byte. 


Exit: Multiplicand := Multiplicand X multiplier 
Registers Used: AX,BX,CX,DI,DX,F (clears D flag),SI 
Time: Assuming average digit value in multiplicand 


is 5, then the time is approximately 
(794 X Length”2)+(439 X Length)+84 cycles 


Size: Program 168 bytes 
Data 256 bytes plus 2 stack bytes 
MPDMUL: 
PUSH BP ;SAVE BASE POINTER 
MOV BP,SP ;GET BASE ADDRESS OF PARAMETERS 
MOV CX,CBP+4] 7;GET LENGTH OF OPERANDS IN BYTES 


we Ne Ns Ns Ne 


we Ne Ne Ns 


CALCULATE DIGIT COUNTER = ARRAY LENGTH X 2 
BIT O SERVES AS A DIGIT FLAG - O INDICATES LOW DIGIT, 
1 HIGH DIGIT 


MOV BX, CX | 
SHL BX,1 ;ARRAY LENGTH X 2 


CHECK LENGTH OF OPERANDS 
EXIT IF LENGTH IS ZERO 


a ‘Ne Me NO 


ONZRO: 


CNDLP: 


wes Ne Ne Na Ne 


LOWDGT:. 


we “We Ne Ne 


MPLRLP: 


ADDLP: 
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JNZ NONZRO 7CONTINUE IF LENGTH NOT ZERO 
7NOTE:S CANNOT USE JZ EXITML 
7 BECAUSE EXITML IS TOO FAR AWAY 
JMP EXITML 7EXIT IF LENGTH IS ZERO 


CLEAR PARTIAL PRODUCT, INCLUDING OVERFLOW BYTE 


CLD 7SET AUTOINCREMENTING 

INC CX 7AREA SIZE = ARRAY LENGTH PLUS 1 
MOV DI,OFFSET PROD ;POINT TO PARTIAL PRODUCT 

SUB AL,AL 7GET ZERO FOR CLEARING 

STOSB 7CLEAR ENTIRE PARTIAL PRODUCT 


LOOP THROUGH ALL BYTES OF MULTIPLICAND 
USE EACH DIGIT TO DETERMINE HOW MANY TIMES TO ADD 
MULTIPLIER TO PARTIAL PRODUCT 


MOV DI,CBP+6] 7GET MULTIPLICAND ADDRESS 
MOV DL,CDIJ 7GET MULTIPLICAND BYTE 


LOOP THROUGH 2 DIGITS PER BYTE 
DURING LOWER DIGIT, DIGIT FLAG 
DURING UPPER DIGIT, DIGIT FLAG = 1 


TEST BX ,1 7TEST DIGIT FLAG 

JZ LOWDGT 7JUMP IF WORKING ON LOW DIGIT 

SHR DL,1 7SHIFT HIGH DIGIT TO LOW DIGIT 

SHR DL,1 

SHR DL,1 

SHR DL,1 

AND DL,OFH 7MASK OFF HIGH DIGIT OF MULTIPLICAND 


7THIS IS UNNECESSARY IF HIGH DIGIT 
7 WAS SHIFTED LOGICALLY, BUT IT 
7 WOULD BE SLOWER TO BRANCH AROUND 
7 IT THAN TO SIMPLY DO IT 

JZ STRDGT 7SKIP MULTIPLY LOOP IF DIGIT IS 0 


ADD MULTIPLIER TO PRODUCT NUMBER OF TIMES GIVEN BY 
DIGIT OF MULTIPLICAND 


MOV S1,CBP+81] 7GET MULTIPLIER ADDRESS 

MOV DI,OFFSET PROD ;GET PARTIAL PRODUCT ADDRESS 

MOV CX, CBP+4] 7GET ARRAY LENGTH 

MOV AL,COI] 7GET PARTIAL PRODUCT BYTE 

MOV DH,DL 7 SAVE MULTIPLICAND DIGIT 

SUB AH,AH 7CLEAR HIGH BYTE OF PRODUCT 

ADD AL,CSI1J 7ADD MULTIPLIER TO PARTIAL PRODUCT 
DAA 7MAKE SUM DECIMAL 

ADC AH,0 7ADD CARRY TO HIGH BYTE (NO DECIMAL 


7 ADJUST NEEDED HERE SINCE HIGH BYTE 


CRYTHR: 


MPLEND: 


WM wa Ve Ns Ne 


TRDGT: 


HIGHDGT: 


ORDIGT: 


SHRDGT: 
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DEC 
JNZ 
STOSB 
MOV 
ADD 
DAA 
MOV 
JNC 
PUSH 
INC 


MOV 
ADD 
DAA 
STOSB 
JC 
POP 


INC 
LOOP 


DH 
ADDLP 


AL,AH 
AL, CDI] 


CDIJ,AL 
MPLEND 
DI 

DI 


AL,CDII 
AL,1 
CRYTHR 


DI 


SI 
MPLRLP 


7; NEVER EXCEEDS 9) 
7COUNT DOWN MULTIPLICAND DIGIT 


7STORE RESULT IN PARTIAL PRODUCT 
7GET HIGH BYTE OF RESULT 

7ADD TO NEXT BYTE OF PRODUCT 
7MAKE SUM DECIMAL 

7STORE RESULT IN PRODUCT 

7JUMP IF NO FURTHER CARRIES 

7 SAVE PRODUCT POINTER 

7POINT TO NEXT BYTE OF PRODUCT 


7PROPAGATE CARRY TO NEXT BYTE 
7MAKE INCREMENT DECIMAL 


7 CONTINUE PROPAGATING CARRY 
RESTORE PRODUCT POINTER 


7POINT TO NEXT MULTIPLIER BYTE 
7RESTORE PRODUCT POINTER 


STORE LEAST SIGNIFICANT DIGIT OF UPPER PRODUCT AS 
NEXT DIGIT OF MULTIPLICAND 


MOV 
MOV 
MOV 
MOV 


AND 
TEST 
JNZ 
AND 
JMP 


AND 
SHL 
SHL 
SHL 
SHL 
INC 


OR 
MOV 


S$1,CBP+6] 


AH, CSI] 


DI,OFFSET PROD 


AL, C01] 


AL,OFH 
BX ,1 

HIGHDGT 
AH,OFOH 
ORDIGT 


AH,OFH 
AL,1 
AL,1 
AL,1 
AL,1 


WORD PTR CBP+6] 


AL,AH 
CSI,AL 


7POINT TO MULTIPLICAND 

7GET MULTIPLICAND BYTE 

7POINT TO PARTIAL PRODUCT 

7GET LEAST SIGNIFICANT BYTE OF 

7 PARTIAL PRODUCT 

7MASK OFF HIGH DIGIT OF PRODUCT 

7 TEST DIGIT FLAG 

7 JUMP IF WORKING ON HIGH DIGIT 
7MASK OFF LOW DIGIT OF MULTIPLICAND 
7SKIP HIGH DIGIT MASKING 


7MASK OFF HIGH DIGIT OF MULTIPLICAND 
7SHIFT PRODUCT DIGIT TO HIGH DIGIT 


7 INCREMENT MULTIPLICAND POINTER 


7OR DIGITS TOGETHER 
7 SAVE RESULT IN MULTIPLICAND 


SHIFT PARTIAL PRODUCT RIGHT 1 DIGIT (4 BITS) 


MOV 


MOV 
SHR 
SHR 
SHR 
SHR 


CX,CBP+4] 


AX, CDI] 
AX,1 
AX,1 
AX,1 
AX,1 


7GET ARRAY LENGTH 


7GET TWO BYTES OF PRODUCT 
;SHIFT RIGHT 4 BITS 


we Ne Ne 


rh Se ‘Ne Ne 


XITML: 


, 
PROD 


we Ne Ne Ne Ne 


SC3H: 


SZAYS 


AY1ADR 
AY2ADR 


AY1 
AY2 
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STOSB 7STORE LOW BYTE IN PRODUCT 
LOOP SHRDGT 7LOOP TO SHIFT ALL BYTES 


CHECK IF MORE MULTIPLICAND DIGITS LEFT 


DEC BX ;DECREMENT DIGIT COUNTER 
JZ EXITML 7EXIT IF ALL MULTIPLICAND DIGITS 
JMP MCNDLP 7 ARE DONE - CANNOT USE JNZ HERE 


7 SINCE MCNDLP IS TOO FAR AWAY 


REMOVE PARAMETERS FROM STACK AND EXIT 


POP BP 7RESTORE BASE POINTER 

RET 6 7RETURN, DISCARDING PARAMETERS FROM 
7 STACK 

DATA 

DB 256 DUP(O) 7PRODUCT BUFFER WITH OVERFLOW BYTE 


SAMPLE EXECUTION 


MOV BX,CAY2ADR] 7GET MULTIPLIER 
PUSH BX 
MOV BX,CAYTADR] 7;GET MULTIPLICAND 
PUSH BX 
MOV AX,SZAYS ;GET LENGTH OF ARRAYS IN BYTES 
CALL MPDMUL ,MULTIPLE-PRECISION DECIMAL MULTIPLICATION 
;RESULT OF 1234H X 5718H = 7056012H 
; IN MEMORY AY1 = 12H 
} AY1+1 = 60H 
; AY1+2 = OSH 
; AY14+3 = 07H 
; AY1+4 = OOH 
} AY1+5 = QOH 
; AY1+6 = QOH 
JMP SC3H ;REPEAT TEST 
EQU 7 ;LENGTH OF ARRAYS IN BYTES 
DB AY1 ;BASE ADDRESS OF ARRAY 1 
DB AY2 7BASE ADDRESS OF ARRAY 2 
DB 34H,12H,0,0,0,0,0 ;MULTIPLICAND 
DB 18H,57H,0,0,0,0,0 ;MULTIPLIER 


END 
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3! Multiple-precision decimal division 
(MPDDIV) 


Divides two multi-byte unsigned decimal (BCD) numbers. Both 
numbers are stored with their least significant digits at the lowest 
address. The quotient replaces the dividend; the base address of the 
remainder is also returned. The length of the numbers (in bytes) is 255 
or less. The Carry flag is cleared if no errors occur; if a divide by 0 is 
attempted, the Carry flag is set to 1, the dividend is unchanged, and the 
remainder is set to 0. 


Procedure The program divides by determining how many times the 
divisor can be subtracted from the dividend. It saves that number in the 
quotient, makes the remainder into the new dividend, and rotates the 
dividend and the quotient left one digit. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of length of operands in bytes 
High byte of length of operands in bytes (always 0) 


Low byte of base address of divisor 
High byte of base address of divisor 


Low byte of base address of dividend 
High byte of base address of dividend 


Exit conditions 


Dividend replaced by dividend divided by divisor 

If the divisor is non-zero, Carry = 0 and the result is normal 

If the divisor is zero, Carry = 1, the dividend is unchanged, and the 
remainder is zero 

The base address of the remainder (i.e., the address of its least signifi- 
cant digits) is in register BX 
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Example 


Data: Length of operands (in bytes) = 4 
Dividend = 2214229816 
Divisor = 000062946 
Result: Dividend = 0000351846 
Remainder (base address in BX) = 00000006, 
Carry = 0, indicating no divide-by-zero error 





Registers used AX, BX, CX, DI, DX, F (clears D flag), SI 


Execution time Depends on the length of the operands and on the 
size of the digits in the quotient (determining how many times the 
divisor must be subtracted from the dividend). If the average digit in the 
quotient has a value of 5, the execution time is approximately 


1224 x LENGTH? + 1185 x LENGTH + 195 cycles 


where LENGTH is the length of the operands in bytes. If, for example, 
LENGTH =.6 (12 digits), the approximate execution time is 


1224 x 67 + 1185 x 6 + 195 = 1224 x 36 + 7110 + 195 
= 44064 + 7305 
= 51369 cycles 


Program size 152 bytes 


Data memory required 514 bytes anywhere in RAM. This includes 
the buffers holding either the high dividend or the result of the trial 
subtraction (255 bytes each starting at addresses HIDE1 and HIDE2, 
respectively), and for the pointers that assign the buffers to specific 
purposes (2 bytes each starting at addresses HDEPTR and DIFPTR, 
respectively). Also 2 stack bytes. 


Special cases 


1. A length of 0 causes an immediate exit with the Carry flag cleared, 
the quotient equal to the original dividend, and the remainder 
undefined. 
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2. A divisor of 0 causes an exit with the Carry flag set to 1, the quotient 
equal to the original dividend, and the remainder equal to 0. 


Title: Multiple-Precision Decimal Division 
Name: MPDDIV 
Purpose: Divide 2 arrays of BCD bytes 


Quotient := Dividend / divisor 


Entry: TOP OF STACK 
Low byte of return address 
High byte of return address 
Low byte of operand length in bytes 
High byte of operand Length in bytes (0) 
Low byte of divisor address 
High byte of divisor address 
Low byte of dividend address 
High byte of dividend address 


The arrays are unsigned BCD numbers 
with a maximum Length of 255 bytes, 
ARRAYCO] is the Least significant 
byte, and ARRAYCLENGTH-1] is the 
most significant byte. 


Exit: Dividend := dividend / divisor 
If no errors then 
Carry := 0 
Dividend unchanged 
Remainder := 0 


Registers Used: AX,BX,CX,DI,DX,F (clears D flag),SI 
Time: Assuming the average digit value in the 


quotient is 5, then the time is approximately 
(1224 X Length*2) + (1185 X Length) + 


195 cycles 
Size: Program 151 bytes 
Data 514 bytes plus 3 stack bytes 


we we Te Me Ne Me Be We Be Ns Me Te Be Ns Ne Ne Ne We Ne Ne Ne Ne Ne Ne Ne Ne Ns No Ne we We Ns We We Ws We We De Ve We We We Ne Ne We 


CHECK LENGTH OF OPERANDS 
EXIT WITH CARRY CLEARED IF LENGTH IS ZERO 


PDDIV: 


CLRHI: 


we “We Ne Ne 


REPE 


NITDV: 


we Ne Ne Ne beg Ne Ne Ne 
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PUSH BP 7 SAVE BASE POINTER 

MOV BP,SP 7GET BASE ADDRESS OF PARAMETER AREA 
MOV CX,CBP+4] 7GET LENGTH OF OPERANDS 

MOV DX ,CX 7 SAVE LENGTH 

TEST CX ,CX 7CHECK FOR ZERO LENGTH 

JNZ STRDIV 7 JUMP IF LENGTH NOT ZERO 

JMP GOODRT 7BRANCH (GOOD EXIT) IF LENGTH IS ZERO 


7CANNOT USE JCXZ OR JZ HERE BECAUSE 
7 GOODRT IS TOO FAR AWAY 


SET UP HIGH DIVIDEND AND DIFFERENCE POINTERS 

CLEAR HIGH DIVIDEND AND DIFFERENCE ARRAYS 

ARRAYS 1 AND 2 ARE USED INTERCHANGEABLY FOR THESE TWO 
PURPOSES. THE POINTERS ARE SWITCHED WHENEVER A 
TRIAL SUBTRACTION SUCCEEDS 


CLD 7SET AUTOINCREMENTING 
MOV SI,OFFSET HIDE1 ;GET BASE ADDRESS OF ARRAY 1 
MOV CHDEPTRI,SI ,DIVIDEND POINTER = ARRAY 1 
MOV DI,OFFSET HIDE2 ;GET BASE ADDRESS OF ARRAY 2 
MOV CDOIFPTRI,DI ,DIFFERENCE POINTER = ARRAY 2 
SUB AL,AL 7GET ZERO FOR CLEARING ARRAYS 
MOV CST],AL 7CLEAR BYTE OF DIVIDEND 
INC SI 7 INCREMENT DIVIDEND POINTER 
STOSB ,CLEAR BYTE OF DIFFERENCE AND 
> INCREMENT DIFFERENCE POINTER 
LOOP CLRHI 7CONTINUE THROUGH ALL BYTES 


CHECK WHETHER DIVISOR IS ZERO 
IF IT IS, EXIT INDICATING DIVIDE-BY-ZERO ERROR 


MOV CX ,DX 7GET LENGTH OF OPERANDS 

MOV DI,CBP+6] 7GET BASE ADDRESS OF DIVISOR 

SUB AL,AL 7GET ZERO FOR COMPARISON 

SCASB ,SCAN DIVISOR UNTIL ALL BYTES EXAMINED 
7 OR NON-ZERO BYTE FOUND 

JNE INITDV 7BRANCH IF NON-ZERO BYTE FOUND 

STC 7ALL BYTES ARE ZERO - INDICATE 
, DIVIDE-BY-ZERO ERROR 

JMP DVEXIT 7EXIT INDICATING ERROR 


DIVIDE USING TRIAL SUBTRACTIONS 


SHIFT QUOTIENT AND UPPER DIVIDEND LEFT AND DO TRIAL 
SUBTRACTION FOR EACH DIGIT IN THE ARRAY LENGTH 


MOV CX ,DX 7GET ARRAY LENGTH 

SHL CX,1 *MULTIPLY LENGTH TIMES 2 
INC Cx 7NEED TO DO 1 EXTRA SHIFT 
MOV CBP+4],CX 7 SAVE SHIFT COUNT ON STACK 


SHIFT QUOTIENT AND UPPER DIVIDEND LEFT 1 DIGIT (4 BITS) 
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we Ns Ne 


DIVSET: 


DIVLUP: 


PD we We Ne Ne 


HFTQT: 


SHFTDV: 


we Ne Ne Ne 


we Ws We Ne Ne Ne Ns Ne 


SUBSET: 


SUBDVS: 
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CARRY IN IS THE RESULT FROM THE PREVIOUS SUBTRACTION 
POINTER TO UPPER DIVIDEND IS IN HDEPTR 


MOV AH,0 ;CLEAR RESULT TO START 
MOV BX ,4 ;NUMBER OF SHIFTS = 4 
SHL AH,1 ;SHIFT RESULT INTO CARRY 
MOV CX ,DX 7;GET ARRAY LENGTH 

MOV DI,CBP+81] 7GET QUOTIENT ADDRESS 


SHIFT QUOTIENT LEFT 1 BIT, CARRY IN IS RESULT OF 
PREVIOUS TRIAL SUBTRACTION 


RCL BYTE PTR CDI1,1 7SHIFT QUOTIENT BYTE LEFT 
INC DI 7POINT TO NEXT BYTE 
LOOP SHFTQT 7;SHIFT ALL BYTES OF QUOTIENT 


SHIFT UPPER DIVIDEND LEFT WITH CARRY FROM LOWER DIVIDEND 


MOV CX ,DX 7;GET ARRAY LENGTH 

MOV DI,CHDEPTRI 7GET ADDRESS OF UPPER DIVIDEND 
RCL BYTE PTR CDIJ,1 ;SHIFT UPPER DIVIDEND BYTE LEFT 
INC DI ;POINT TO NEXT BYTE 

LOOP SHFTDV ;SHIFT ARRAY LENGTH BYTES 

DEC BX ;CHECK IF MORE SHIFTS NEEDED 

JNZ DIVLUP 


CHECK IF QUOTIENT HAS BEEN SHIFTED ENOUGH TIMES 
EXIT WITH RESULT IF SO, ELSE DO NEXT SUBTRACTION 


DEC WORD PTR CBP+4] ;DECREMENT SHIFT COUNT 
JZ GOODRT ;EXIT IF DONE 


TRIAL SUBTRACTION OF DIVISOR FROM DIVIDEND 
SAVE DIFFERENCE IN CASE IT IS NEEDED LATER 


NEXT DIGIT OF QUOTIENT IS RESULT OF SUBTRACTION 
10 IS ADDED FOR EACH SUCCESSFUL SUBTRACTION 
SUCCESSFUL SUBTRACTION GENERATES NO BORROW 


SUB AH,AH ;CLEAR RESULT STORAGE AREA 
MOV SI,CHDEPTRI 7;GET UPPER DIVIDEND POINTER 
MOV BX, (BP+6] 7GET DIVISOR POINTER 

MOV DI,CDIFPTRI 7;GET DIFFERENCE POINTER 

CLC ;CLEAR BORROW INITIALLY 

MOV CX,DX 7GET ARRAY LENGTH 

LODSB 7;GET BYTE OF DIVIDEND 

SBB AL, CBX] ;SUBTRACT BYTE OF DIVIDEND 
DAS 7;MAKE SUBTRACTION DECIMAL 
STOSB 7; SAVE DIFFERENCE IN BUFFER 


INC BX 7 INCREMENT DIVISOR POINTER 


GD we We We Ne 


UCSES: 


® 
a7 


s 
a 


GOODRT: 


e 
a 


e 
a 


a 
EXITDV: 


7 
, 
7 
HDEPTR 
DIFPTR 


HIDE1 
HIDE2 


Nae No Ne Ne Ne 


SC3I: 
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LOOP SUBDVS 7COUNT BYTES 
JNC SUCSES 7NO BORROW - TRIAL SUBTRACTION 
7 SUCCEEDED 
JMP DIVSET 7BORROW - TRIAL SUBTRACTION FAILED SO 


7 DO NEXT SHIFT 


TRIAL SUBTRACTION SUCCEEDED 
REPLACE UPPER DIVIDEND WITH DIFFERENCE BY SWITCHING POINTERS 


ADD AH,10H 7ADD 10 FOR GOOD SUBTRACTION 
7NO NEED TO DECIMAL ADJUST HERE 
7 SINCE DIGIT NEVER EXCEEDS 9 

MOV CX, CHDEPTRI 7GET OLD DIVIDEND POINTER 

XCHG CX,CDIFPTRI 7DIVIDEND POINTER BECOMES NEW 
7 DIFFERENCE POINTER FOR NEXT 
7 ITERATION 


MOV CHDEPTR],CX ;DIFFERENCE BECOMES DIVIDEND 
7 FOR NEXT ITERATION 
JMP SUBSET 7DO NEXT TRIAL SUBTRACTION 


CLEAR CARRY TO INDICATE NO ERRORS 


CLC 7CLEAR CARRY - NO DIVIDE-BY-ZERO 
7 ERROR 


REMOVE PARAMETERS FROM STACK AND EXIT 


MOV BX,CHDEPTR] 7GET BASE ADDRESS OF REMAINDER 
POP BP 7RESTORE BASE POINTER 
RET 6 7RETURN, DISCARDING PARAMETERS 


7 FROM STACK 


DATA 

DW 0 7POINTER TO HIGH DIVIDEND 

DW 0 ,POINTER TO DIFFERENCE BETWEEN HIGH 
7 DIVIDEND AND DIVISOR 

DB 255 DUP(O) 7HIGH DIVIDEND BUFFER 1 

DB 255 DUP(O) 7HIGH DIVIDEND BUFFER 2 

SAMPLE EXECUTION 

MOV BX,CAY1ADR] ,GET DIVIDEND 

PUSH BX 

MOV BX ,LAY2ADR] 7GET DIVISOR 


PUSH BX 


MOV 


SZAYS 


AY1ADR 
AY2ADR 


AY1 
AY2 
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AX,SZAYS 
PUSH 
CALL 


JMP 
EQU 


DW 
DW 


DB 
DB 


END 


AX 
MPDDIV 
7 IN MEMORY 
, 
Sc3I ;REPEAT TEST 
v 7LENGTH OF ARRAYS IN 
AY1 
AY2 
56H,27H,82H,03H,0,0,0 
34H,12H,0,0,0,0,0,0 


7;GET LENGTH OF ARRAYS IN BYTES 


;MULTIPLE-PRECISION DECIMAL DIVISION 
sRESULT OF 3822756 / 1234 = 3097 


AY1 

AY1+1 
AY1+2 
AY1+3 
AY1+4 
AY1+5 
AY1+6 


97H 
30H 
OOH 
OOH 
OOH 
OOH 
OOH 


hou 


BYTES 


;BASE ADDRESS OF ARRAY 1 (DIVIDEND) 
;BASE ADDRESS OF ARRAY 2 (DIVISOR) 


;DIVIDEND 
;DIVISOR 
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3J Multiple-precision decimal comparison 





Compares two multi-byte unsigned decimal (BCD) numbers, setting the 
Carry and Zero flags. Both numbers are stored with their least signifi- 
cant bytes at the lowest address. Sets the Zero flag to 1 if the operands 
are equal and to 0 otherwise. Sets the Carry flag to 1 if the subtrahend is 
larger than the minuend and to 0 otherwise. It thus sets the flags as if it 
had subtracted the subtrahend from the minuend. 


Note This program is exactly the same as Subroutine 3E, the multiple- 
precision binary comparison, since the form of the operands does not 
matter if they are only being compared. See Subroutine 3E for a listing 
and other details. 





Entry conditions 
Order in stack (starting from the top) 


Low significant byte of return address 
High significant byte of return address 


Low byte of length of operands in bytes 
High byte of length of operands in bytes 


Low byte of base address of subtrahend 
High byte of base address of subtrahend 


Low byte of base address of minuend 
High byte of base address of minuend 


Exit conditions 
Flags set as if subtrahend had been subtracted from minuend 


Zero flag = 1 if subtrahend and minuend are equal, 0 if they are not 
equal 


Carry flag = 1 if subtrahend is larger than minuend in the unsigned 
sense, 0 if it less than or equal to the minuend 
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Examples 


1. 


Data: 


Result: 


Data: 


Result: 


Data: 


Result: 


Length of operands (in bytes) = 6 

Top operand (subtrahend) = 196528719340,¢ 

Bottom operand (minuend) = 4567801532664¢ 

Zero flag = 0 (operands are not equal) 

Carry flag = 0 (subtrahend is not larger than minuend) 


Length of operands (in bytes) = 6 

Top operand (subtrahend) = 1965287193406 

Bottom operand (minuend) = 196528719340,¢ 

Zero flag = 1 (operands are equal) 

Carry flag = 0 (subtrahend is not larger than minuend) 


Length of operands (in bytes) = 6 

Top operand (subtrahend) = 1965287193406 
Bottom operand (minuend) = 07378599107416 
Zero flag = 0 (operands are not equal) 

Carry flag = 1 (subtrahend is larger than minuend) 
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3K 8087 interface package 
(INTADD, FPADD, FPSUB, FPMUL, FPDIV, FPCOM) 


Provides six sample routines that add, subtract, multiply, divide, and 
compare using the 8087 numeric data processor (NDP). Two separate 
addition routines handle integers and real (floating point) numbers, 
respectively. The 8087 NDP acts as a coprocessor for the 8086, executing 
a set of instructions that the 8086 ignores. The two devices thus run in 
parallel with a special synchronizing connection through the 8086’s TEST 
input; the WAIT or FWAIT instructions check this input before pro- 
ceeding. 


Procedure Each routine pushes the secondary operand onto the 8087’s 
stack, performs the operation with the primary operand, and finally saves 
the result in place of the primary operand. The comparison, of course, 
does not produce a result; it merely sets the flags. No error or exception 
checking is provided. The primary operand is the minuend in subtraction 
and comparison, the multiplicand in multiplication, and the dividend in 
division. The secondary operand is the subtrahend in subtraction and 
comparison, the multiplier in multiplication, and the divisor in division. 

The routines handle synchronization between the 8086 CPU and the 
8087 NDP. Each 8087 data manipulation or data transfer instruction 
automatically begins with a test (FWAIT) of whether the NDP is ready 
(i.e. whether it has finished its previous operation). The actual instruction 
is not executed until this test is satisfied. A final FWAIT instruction waits 
for the NDP to complete its last operation, thus ensuring a valid result in 
memory. 


Discussion 
The 8087 numeric data processor performs arithmetic operations on the 
following data types: 
Data type Bits Significant Approximate range 
digits (decimal) 
Word integer 16 4 —32 768 to +32 767 
Short integer 32. «9 —2 X 10° to2 x 10° 
Long integer 64 18 —9 x 10!’ to9 x 1019 
Packed decimal 80 18 —99...99 to 99...99 
Short real 32 6-7 8.43 x 10-3” to 3.37 x 1038 
Long real 64 15-16 4.19 x 1073° to 1.67 x 10308 


Temporaryreal 80 19 3.4 x 107493? to 1.2 x 104932 
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Note The short real format corresponds to IEEE Standard 754’s single-width floating 
point numbers, the long real format to double-width floating point numbers, and the 
temporary real format to double-width extended floating point numbers. 


The 8087 NDP performs most operations on data from a stack consis- 
ting of eight 80-bit registers. It automatically converts all data to the 
temporary real (80-bit) format before pushing it onto the stack. The 
8087 has separate push and pop instructions for three classes of data: 
real, integer, and packed decimal. A pop instruction transforms data 
from the stack’s temporary real format into the specified format. 

The ASM86 and similar assemblers provide the following storage 
allocation directives for numeric data types: 


Directive . Bytes Pointer type Data type 

DB—define byte 1 BYTE PTR Byte 

DW—define word 2 WORD PTR Word integer 

DD—define doubleword 4 DWORD PTR Short integer, short real 
DQ—define quadword 8 QWORD PTR Long integer, long real 
DT—4define tenbyte 10 TBYTE PTR Packed decimal, temporary real 


The assembler accepts integers, decimal numbers, or numbers written in 
scientific notation (i.e. decimal fraction, the letter E, and an exponent 
or power of 10) as values in DD, DQ, and DT directives. Values that 
have no decimal point and are not in scientific notation are assumed to 
be integers. 





Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of address of secondary operand 
High byte of address of secondary operand 


Low byte of address of primary operand 
High byte of address of primary operand 
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Exit conditions 


Primary operand replaced by result of operation except for a com- 
parison, which does not change either operand. The result is the sum in 
addition, the difference in subtraction, the product in multiplication, 
and the quotient in division. A comparison sets the flags as if the 
subtrahend (secondary operand) had been subtracted from the minuend 
(primary operand). That is: 


Zero flag = 1 if operands are equal, 0 if they are not equal 
Carry flag = 1 if subtrahend is larger than minuend in the unsigned 
sense, 0 if it is less than or equal to the minuend. 


Examples 


1. INTADD 
Data: Primary operand = 123456 (1E240 hex) 
Secondary operand = 121212 (1D97C hex) 
Result: Primary operand = Primary operand + Secondary 
operand = 244668 (3BBBC hex) 


2. FPADD 
Data: Primary operand = 12.456 | 
Secondary operand = 121.12 
Result: Primary operand = Primary operand + Secondary 
operand = 133.576 


3. FPSUB 
Data: Primary operand (minuend) = 546.123 
Secondary operand (subtrahend) = 121.12 
Result: Primary operand = Primary operand — Secondary 
operand = 425.003 


4. FPMUL 
Data: Primary operand (multiplicand) = 546.123 
Secondary operand (multiplier) = 121.12 
Result: Primary operand = Primary operand X Secondary 
operand = 66146.418 


5. FPDIV 
Data: Primary operand (dividend) = 1694.25 
Secondary operand (divisor) = 125.5 
Result: Primary operand = Primary operand/Secondary 
operand = 13.5 
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6. FPCOM. 


References 


(a) 


Data: 
Result: 
(b) 
Data: 
Result: 
(c) 
Data: 


Result: 


Primary operand (minuend) = 15750.25 

Secondary operand (subtrahend) = 125.5 

Zero flag = 0 (operands are not equal) 

Carry flag = 0 (secondary operand is not larger than 
primary operand) 


Primary operand (minuend) = 121.5 

Secondary operand (subtrahend) = 125.5 

Zero flag = 0 (operands are not equal) 

Carry flag = 1 (secondary operand is larger than primary 
operand) 


Primary operand (minuend) = 546.123 

Secondary operand (subtrahend) = 546.123 

Zero flag = 1 (operands are equal) 

Carry flag = 0 (secondary operand is not larger than 
primary operand) 


Binary Floating-Point Arithmetic, Standard for (IEEE Std 754-1985), 


IEEE, Piscataway, NJ, 1985. 


G. W. Gorsline, 16-Bit Modern Microcomputers: The Intel I8086 


Family, Prentice-Hall, Englewood Cliffs, NJ, 1985, Chapter 6. 


R. Startz, 8087 Applications and Programming for the IBM PC and 


Other PCs, Brady/Prentice-Hall, Bowie, MD, 1984. 


Registers used 

INTADD: DI, DX 
FPADD: DI, DX 

FPSUB: DI, DX 

FPMUL: DI, DX 

FPDIV: DI, DX 

FPCOM: AH, DI, DX, F, SI 


A wpe bb 


we We Ns Be Ne We Ne Ns Ms Ne Ne Ve Ne We Ns Vs 
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Execution time 

1. INTADD.: approximately 330 cycles 
2. FPADD.: approximately 316 cycles 
3. FPSUB: approximately 316 cycles 
4. FPMUL: approximately 319 cycles 
5. FPDIV: approximately 421 cycles 

6. FPCOM: approximately 200 cycles 


Program size 


A vw FY NY 


INTADD.: 15 bytes 
FPADD: 15 bytes 
FPSUB: 15 bytes 
FPMUL: 15 bytes 
FPDIV: 15 bytes 
FPCOM: 18 bytes 


Data memory required 2 bytes at address STAT87 for FPCOM to 
hold the status of the 8087 chip. 


Special cases None. The calling routine must handle all errors and 


exceptions. 
Title: 32-Bit Integer Addition Using 8087 NDP 
Name: INTADD | 
Purpose: Add two 32-bit integers using the 8087 
numeric data processor (NDP) 
Entry: TOP OF STACK 


Low byte of return address 

High byte of return address 

Low byte of address of operand 2 
High byte of address of operand 2 
Low byte of address of operand 1 
High byte of address of operand 1 


102 


Na We Ne Ne Ne Ne Be Ne Ne 
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Exit: 


Registers Used: 


Time: 


Size: 


INTADD: 


we “Ne No 


SC3K1 


7 
;DATA 
7 
OPER1 
OPER2 


we Ne Ne Ne Ne Ne Ne 


Operand 1 


DI,DX 


:= Operand 1 + Operand 2 


Approximately 330 cycles 


Program 


15 bytes 


7 
zADD 2 32-BIT INTEGERS USING THE 8087 NDP 


a 

POP 
POP 
FILD 
POP 
FIADD 
FISTP 
FWAIT 
JMP 


DX 
DI 
DWORD PTR CDI] 
DI 
DWORD PTR CDI] 
DWORD PTR CDI] 


DX 


SAMPLE EXECUTION 


MOV 
PUSH 
MOV 
PUSH 
CALL 


JMP 


DD 
DD 


END 


Title: 
Name: 


Purpose: 


DI,OFFSET OPER1 
DI 

DI,OFFSET OPER2 
DI 

INTSUM 


$C3K1 


123456 
121212 


7 SAVE RETURN ADDRESS 

7GET ADDRESS OF OPERAND 2 
7PUSH OPERAND 2 ON 8087 STACK 
7GET ADDRESS OF OPERAND 1 
7ADD OPERANDS 

7POP SUM INTO OPERAND 1 

7WAIT FOR 8087 TO FINISH 
7RETURN 


7GET ADDRESS OF OPERAND 1 
7GET ADDRESS OF OPERAND 2 


700 INTEGER ADDITION 
;RESULT OF 1E240H + 1D973H 


; = 3BBBCH 
7 IN MEMORY OPER1 = BCH 
; OPER1+1 = BBH 
; OPER1+2 = 03H 
; OPER1+3 = OOH 
7REPEAT TEST 


7OPERAND 1 (1E240 HEX) 
7OPERAND 2 (1D973 HEX) 


Floating Point Addition Using 8087 NDP 


FPADD 


Add 2 double-precision floating point (real) 
numbers using the 8087 numeric data processor 


we We We Ne We We Ne Vs Ne We We Ve Ve Ve Ne Ne We Ns Ve 
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Entry: 


Exit: 


Registers Used: 
Time: 


Size: 


FPADD: 


(NDP) 


TOP OF STACK 
Low byte of return address 
High byte of return address 
Low byte of address of operand 2 
High byte of address of operand 2 
Low byte of address of operand 1 
High byte of address of operand 1 


Operand 1 := Operand 1 + Operand 2 


DI 
Approximately 316 cycles 


Program 15 bytes 


7ADD 2 LONG (8-BYTE) REALS USING THE 8087 NDP 


a 

POP DX 7 SAVE RETURN ADDRESS 

POP DI 7GET ADDRESS OF OPERAND 2 

FLD QWORD PTR CDI] 7PUSH OPERAND 2 ON 8087 STACK 
POP DI 7GET ADDRESS OF OPERAND 1 
FADD QWORD PTR [CDI] 7ADD OPERANDS 

FSTP QWORD PTR CODIJ 7POP SUM INTO OPERAND 1 

FWAIT ;WAIT FOR 8087 TO FINISH 

JMP DX 7 RETURN 


SAMPLE EXECUTION 


SC3K2: 


MOV DI,OFFSET OPER1 7GET ADDRESS OF OPERAND 1 


PUSH DI 

MOV DI,OFFSET NUMB 7GET ADDRESS OF OPERAND 2 

PUSH ODI 

CALL FPADD 700 LONG REAL ADDITION 
7RESULT OF ADDING 12.456 AND 
7 121.12 = 133.576 
7 IN MEMORY OPER1 = DFH 
; OPER1 + 1 = 4FH 
; OPER1 + 2 = 8DH 
; OPER1 + 3 = 97H 
; OPER1 + 4 = 63H 
; OPER1 + 5 = B2H 
; OPER1 + 6 = 93H 
; OPER1 + 7 = OSH 

JMP SC3K2 7REPEAT TEST 
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* DOUBLE PRECISION NUMBERS OCCUPY 4 WORDS (8 BYTES) OF MEMORY 

OPER1 DQ 12.456 7OPERAND 1 

OPER2 DQ 121.12 ;OPERAND 2 
Title: Floating Point Subtraction Using 8087 NDP 
Name: FPSUB 
Purpose: Subtract 2 double-precision floating point 


(real) numbers using the 8087 numeric data 
processor (NDP) 


Entry: TOP OF STACK 
Low byte of return address 
High byte of return address 
Low byte of address of subtrahend 
High byte of address of subtrahend 
Low byte of address of minuend 
High byte of address of minuend 


we “Ne Ne Ne Ne Ne Ns Ne Ve Ne Ve We Vs Ve Ve Ne We Noe We We We We Ns Ws We Vo 


Exit: Minuend := Minuend - Subtrahend 
Registers Used: DI,DX 
Time: Approximately 316 cycles 
Size: Program 15 bytes 
FPSUB: 


, 
;SUBTRACT 2 LONG (8-BYTE) REALS USING THE 8087 NDP 


a 
POP DX 7 SAVE RETURN ADDRESS 
POP DI 7GET ADDRESS OF SUBTRAHEND 
FLD QWORD PTR CDI] 7PUSH SUBTRAHEND ON 8087 STACK 
POP DI 7GET ADDRESS OF MINUEND 
FSUBR QWORD PTR CDI] 7MINUEND - SUBTRAHEND 
FSTP QWORD PTR CDI] 7POP DIFFERENCE INTO MINUEND 
FWAIT ;WAIT FOR 8087 TO FINISH 
JMP DX 7 RETURN 

7 

; SAMPLE EXECUTION 


SC3K3: 
MOV DI,OFFSET OPER 7GET ADDRESS OF MINUEND 
PUSH DI 
MOV DI,OFFSET OPER2 7GET ADDRESS OF SUBTRAHEND 
PUSH DI 


, 
7DATA 
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CALL FPSUB 7D0 LONG REAL SUBTRACTION 
7RESULT OF 546.123 - 121.12 
, = 425.003 
7 IN MEMORY OPER1 = 35H 
; OPER1 + 1 = 5EH 
; OPER1 + 2 = BAH 
; OPER1 + 3 = 49H 
; OPER1 + 4 = OCH 
; OPER1 + 5 = 90H 
; OPER1 + 6 = 7AH 
; OPER1 + 7 = 40H 

JMP $C3K3 7REPEAT TEST 


7DOUBLE PRECISION NUMBERS OCCUPY 4 WORDS (8 BYTES) OF MEMORY 


a 
OPER1 
OPER2 


we “We Ye We Be We Ve We Ws Ne We VWs Vs Vs We Ws We Ne We Ns Ve Ve Ne We Ve Vos 


FPMUL 


E 


Title: 


Name: 


Purpo 


Entry 


Exit: 


Regis 
Time: 


Size: 


DQ 546.123 7;MINUEND 
DQ 121.12 7 SUBTRAHEND 
ND 
Floating Point Multiplication Using 8087 NDP 
FPMUL 
se: Multiply 2 double-precision floating point 
(real) numbers using the 8087 numeric data 
processor (NDP) 
: TOP OF STACK 
Low byte of return address 
High byte of return address 
Low byte of address of multiplier 
High byte of address of multiplier 
Low byte of address of multiplicand 
High byte of address of multiplicand 
Multiplicand := Multiplicand X Multiplier 
ters Used: DI,DX 
Approximately 319 cycles 
Program 15 bytes 


7 
7MULTIPLY 2 LONG (8-BYTE) REALS USING THE 8087 NDP 


a 
POP DX 7 SAVE RETURN ADDRESS 
POP DI 7GET ADDRESS OF MULTIPLIER 
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FLD QWORD PTR CDI] 
POP DI 

FMUL QWORD PTR CDI] 
FSTP QWORD PTR CDI] 
FWAIT 

JMP DX 


;PUSH MULTIPLIER ON 8087 STACK 
7GET ADDRESS OF MULTIPLICAND 
7MULTIPLICAND X MULTIPLIER . 
7POP PRODUCT INTO MULTIPLICAND 
zWAIT FOR 8087 TO FINISH 

7 RETURN 


7GET ADDRESS OF MULTIPLICAND 
7GET ADDRESS OF MULTIPLIER 
700 LONG REAL MULTIPLICATION 


7RESULT OF 546.123 X 121.12 
7 = 66146.41776 


; IN MEMORY OPER1 = 1AH 
; OPER1 + 1 = 1CH 
; OPER1 + 2 = 25H 
; OPER1 + 3 = AFH 
; OPER1 + 4 = 26H 
; OPER1 + 5 = 26H 
; OPER1 + 6 = FOH 
; OPER1 + 7 = 40H 
7REPEAT TEST 


WORDS (8 BYTES) OF MEMORY 


7MULTIPLICAND 
,MULTIPLIER 


Floating Point Division Using 8087 NDP 


Divide 2 double-precision floating point 


(real) numbers using the 8087 numeric data 
processor (NDP) 


Low byte of return address 

High byte of return address 

Low byte of address of divisor 
High byte of address of divisor 
Low byte of address of dividend 
High byte of address of dividend 


= Dividend / Divisor 


, 
; SAMPLE EXECUTION 
SC3K4: 
MOV DI,OFFSET OPER1 
PUSH DI 
MOV DI,OFFSET OPER2 
PUSH DI 
CALL FPMUL 
JMP SC3K4 
7 
7 DATA 
;DOUBLE PRECISION NUMBERS OCCUPY 4 
7 
OPER1 DQ 546.123 
OPER2 DQ 121.12 
END 
, 
; Title: 
’ 
; Name: FPDIV 
; Purpose: 
, 
, 
’ 
; Entry: TOP OF STACK 
7 
, 
7 
’ 
, 
; Exit: Dividend 
, 


we Ne Ne We Ns Ue NO 
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Registers Used: 
Time: 


Size: 


FPDIV: 


DI ,DX 
Approximately 421 cycles 


Program 15 bytes 


,DIVIDE 2 LONG (8-BYTE) REALS USING THE 8087 NDP 


POP DX 7 SAVE RETURN ADDRESS 

POP DI 7GET ADDRESS OF DIVISOR 

FLD QWORD PTR CDI] 7PUSH DIVISOR ON 8087 STACK 
FDIVR QWORD PTR [CDI] 7DIVIDEND / DIVISOR 

FSTP QWORD PTR CDI] 7POP QUOTIENT INTO DIVIDEND 
FWAIT 7WAIT FOR 8087 TO FINISH 
JMP DX 7 RETURN 


SAMPLE EXECUTION 


SC3K5: 


7; DATA 


MOV DI,OFFSET OPER1 7GET ADDRESS OF DIVIDEND 


MOV DI,OFFSET OPER2 7GET ADDRESS OF DIVISOR 


PUSH DI 
PUSH DI 
CALL FPDIV 


JMP SC3K5 


7DO LONG REAL DIVISION 
7RESULT OF 1694.25 / 125.5 


; = 13.5 

7 IN MEMORY OPER1 = OOH 
; OPER1 + 1 = OOH 
; OPER1 + 2 = OOH 
; OPER1 + 3 = OOH 
; OPER1 + 4 = OOH 
; OPER1 + 5 = QOH 
; OPER1 + 6 = 2BH 
; OPER1 + 7 = 4OH 
7REPEAT TEST 


7DOUBLE PRECISION NUMBERS OCCUPY 4 WORDS (8 BYTES) OF MEMORY 


OPER1 
OPER2 


we “Ne Ne Ne Ne 


DQ 1694.25 
DQ 125.5 
END 

Title: 

Name: 


7 DIVIDEND 
7DIVISOR 


Floating Point Comparison Using 8087 NDP 


FPCOM 


108 


Exit: 


Time: 


Size: 


we Me Te Me Ne Te Me Me Me Ns Te Ns Ne We Ne Ne Ne Ne Ne Ne Ns Ne Ne we “Ne Ns Ne Ne Ne Ne Noe 


FPCOM: 


SC3K6: 


Purpose: 


Entry: 


Registers Used: 


Assembly language subroutines for the 8086 


Compare 2 single-precision floating point 
(real) numbers using the 8087 numeric data 
processor (NDP). Return the Carry and 
Zero flags set or cleared. 


TOP OF STACK 
Low byte of return address 
High byte of return address 
Low byte of address of subtrahend 
High byte of address of subtrahend 
Low byte of address of minuend 
High byte of address of minuend 


IF minuend = subtrahend THEN 
C=0,Z=1 

IF minuend > subtrahend THEN 
c=0,Z=0 

IF minuend < subtrahend THEN 
C=1,Z=0 

IF minuend and subtrahend cannot be compared, 
THEN C=1,Z=1 (i.e., one operand is infinite 
or has an illegal or improper value) 


AH,DI,DX,F,SI 


Approximately 200 cycles 


Program 18 bytes 
Data 2 bytes 


, 
;COMPARE 2 LONG (8-BYTE) REALS USING THE 8087 NDP 


POP 
POP 
POP 
FLD 
FCOM 


FSTSW 
FWAIT 
MOV 
SAHF 
JMP 


DX ;SAVE RETURN ADDRESS 

DI 7;GET ADDRESS OF SUBTRAHEND 

SI 7;GET ADDRESS OF MINUEND 

QWORD PTR CSI] ;PUSH MINUEND ON 8087 STACK 

QWORD PTR CDI] ;COMPARE MINUEND TO SUBTRAHEND 
> I.E., MINUEND-SUBTRAHEND 

STAT87 ;GET STATUS FLAGS FROM 8087 
;WAIT FOR 8087 TO FINISH 

AH, CSTAT87+1] 7SET PROCESSOR FLAGS FROM 8087 

DX 7 RETURN 


SAMPLE EXECUTION 


MOV 
PUSH 
MOV 


DI,OFFSET OPER1 7;GET ADDRESS OF MINUEND 


DI 


DI,OFFSET OPER2 7;GET ADDRESS OF SUBTRAHEND 


A 
7; DATA 
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PUSH DI 

CALL FPCOM 7D0 LONG REAL COMPARISON 
7RESULT OF COMPARE (15750.25, 
7 125.5) IS c=0, Z=0 

JMP SC3K6 7REPEAT TEST 


,DOUBLE PRECISION NUMBERS OCCUPY 8 BYTES (4 WORDS) OF MEMORY 


a 
OPER1 
OPER2 
STAT87 


DD 15750.25 7MINUEND 

DD 125.5 7 SUBTRAHEND 

DW 0 TEMPORARY STORAGE FOR 8087 
7 STATUS 


END 


Bit manipulation and 
shifts 





4A Bit field extraction 
(BFE) 





Extracts a field of bits from a word and returns it in the least significant 
bit positions. The width of the field and its lowest bit position are 
specified. This operation is useful in graphics, compilation, database 
management, and other applications where bit fields contain attributes 
such as colour, record type, or identifier type. 


Procedure The program obtains a mask consisting of right-justified 1 
bits covering the field’s width. It shifts the mask left to align it with the 
specified lowest bit position and obtains the field by logically ANDing 
the mask with the data. It then normalizes the bit field by shifting it night 
until it starts in bit 0. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Starting (lowest) bit position in the field (0-15) 
Width of the field in bits (0-15) 
110 
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Low byte of data 
High byte of data 


Exit conditions 


Bit field in register AX (normalized to bit 0) 
cn 


Examples 


1. Data: Value = F67Ci¢ = 1111011001111100, 
Lowest bit position = 4 
Width of field in bits = 8 
Result: Bit field = 006716 = 0000000001100111, 
We have extracted 8 bits from the original data, starting 
with bit 4 (i.e. bits 4-11) 
2. Data: Value = A2D4i6 = 1010001011010100, 
Lowest bit position = 6 
Width of field in bits = 5 
Result: Bit field = 000B;6 = 0000000000001011, 
We have extracted 5 bits from the original data, starting 


with bit 6 (i.e. bits 6-10) 
ee ene 


Registers used AX, BX, CX, DX, F, SI 


Execution time 8 x LOWEST BIT POSITION plus 89 cycles over- 
head. The lowest bit position determines how many times the program 
must shift the mask left and the bit field right. For example, if the field 
Starts in bit 6, the execution time is 


8 X 6 + 89 = 48 + 89 = 137 cycles 


Program size 61 bytes (including the table of masks) 


Data memory required None 


112 
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Special cases 


1. Requesting a field that would extend beyond the end of the word 
causes the program to return with only the bits through bit 15. That is, 
no wraparound is provided. If, for example, the user asks for a 10-bit 
field starting at bit 8, the program will return only 8 bits (bits 8-15). 


2. Both the lowest bit position and the number of bits in the field are 
interpreted mod 16. For example, bit position 17 is equivalent to bit 


position 1 and a field of 20 bits is equivalent to a field of 4 bits. 


3. Requesting a field of 0 width causes a return with a result of 0. 





Title: 
Name: 


Purpose: 


Entry: 


Exit: 
Registers Used: 


Time: 


Size: 


Bit Field Extraction 
BFE 


Extract a field of bits from a 16-bit 

word and return the field normalized 

to bit O. 

NOTE: IF THE REQUESTED FIELD IS TOO 
LONG, THEN ONLY THE BITS THROUGH 
BIT 15 WILL BE RETURNED. FOR 
EXAMPLE, IF A 4 BIT FIELD IS 
REQUESTED STARTING AT BIT 15 THEN 
ONLY 1 BIT (BIT 15) WILL BE 
RETURNED. 


TOP OF STACK 
Low byte of return address 
High byte of return address 
Lowest (starting) bit position in 

the field (0..15) 

Width of field in bits (0..15) 
Low byte of data 
High byte of data 


Register AX = Field (normalized to bit 0) 
AX,BX,CX,DX,F,SI 


89 cycles overhead plus 
(8 X Lowest bit position) cycles 


Program 61 bytes (including the table 
of masks) 


BFE: 


we We Ne 


we Ne Ne Ns Ne 


“Ne “Ne Ne No 


‘a 


Ne “We Ne Ne 


s 
7 


7 
a 
EXITBF: 


e 
a 


a 
7 


7 
MSKARY 
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POP DX 7 SAVE RETURN ADDRESS 


EXIT WITH ZERO RESULT IF WIDTH OF FIELD IS ZERO 


POP CX ,GET FIELD WIDTH, STARTING 
7 BIT POSITION 

AND CX,QFOFH 7BE SURE FIELD WIDTH, STARTING 
, BIT POSITION ARE BOTH 0..15 

POP BX 7GET DATA 

SUB AX ,AX z INITIALIZE RESULT TO ZERO 

TEST CH,CH 7TEST FIELD WIDTH 

JZ EXITBF 7BRANCH CEXIT) IF FIELD WIDTH 
, IS ZERO 


7 NOTE: RESULT IN AX IS ZERO 


USE FIELD WIDTH TO OBTAIN EXTRACTION MASK FROM ARRAY 
MASK CONSISTS OF A 16-BIT RIGHT-JUSTIFIED SEQUENCE OF 1 BITS 
WITH LENGTH GIVEN BY THE FIELD WIDTH 


MOV AL,CH zCONSTRUCT A 16-BIT INDEX FROM 
7 FIELD WIDTH (REMEMBER AH=0) 
SHL AX,1 7DOUBLE INDEX TO ACCESS TABLE 
> OF 16-BIT MASKS 
MOV SI ,AX 
MOV AX,MSKARY~2CSI] ;GET EXTRACTION MASK FROM TABLE 


7NOTE WIDTH IS 1 TO 15 ONLY SINCE 
7 ZERO WIDTH CAUSED EARLIER EXIT 


SHIFT MASK LEFT LOGICALLY TO ALIGN IT WITH LOWEST BIT 
POSITION IN FIELD 


SHL AX,CL ;SHIFT MASK LEFT LOGICALLY 
7SHIFT OF O BITS DOES NOT AFFECT 
7 OPERAND 

OBTAIN FIELD BY LOGICALLY ANDING SHIFTED MASK WITH VALUE 

AND AX ,BX 7AND SHIFTED MASK WITH DATA 


NORMALIZE FIELD TO BIT O BY SHIFTING RIGHT LOGICALLY FROM 
LOWEST BIT POSITION 


SHR AX,CL ,SHIFT RESULT RIGHT LOGICALLY 
7SHIFT OF O BITS DOES NOT AFFECT 
7 OPERAND 


EXIT TO RETURN ADDRESS 


JMP DX zEXIT TO RETURN ADDRESS 


ARRAY OF MASKS WITH 1 TO 15 ONE BITS RIGHT-JUSTIFIED 


DW 00000000000000018 
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DW 0000000000000011B 
DW 0000000000000111B 
DW 0000000000001111B 
DW 0000000000011111B 
DW 0000000000111111B 
DW 0000000001111111B 
DW 0000000011111111B 
DW 0000000111111111B 
DW 0000001111111111B 
DW 0000011111111111B 
DW ~ 9000111111111111B 
DW 0001111111111111B 
DW 0011111111111111B 
DW 0111111111111111B 
; SAMPLE EXECUTION 
SC4A: 
MOV AX, CVAL]J ;GET DATA 
PUSH AX 
MOV AH, CNBITS] 7GET FIELD WIDTH IN BITS 
MOV AL,CPOS] 3;GET LOWEST BIT POSITION 
PUSH AX 
CALL BFE zEXTRACT BIT FIELD 
sRESULT FOR VAL=1234H, NBITS=4, 
; POS=4 IS AX = O0003H 
3THIS OPERATION EXTRACTS 4 BITS 
3 STARTING AT BIT POSITION 4 
; (THAT IS, BITS 4 THROUGH 7) 
JMP SC4A ;REPEAT TEST 
7 
;DATA 
VAL DW ~ 1234H 7 DATA 
NBITS DB 4 ; FIELD WIDTH IN BITS 
POS DB 4 LOWEST BIT POSITION 


END 
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4B Bit field insertion 
(BF) 


Inserts a field of bits into a word. The width of the field and its lowest 
(starting) bit position are the parameters. This operation is useful in 
graphics, compilation, database management, and other applications 
where bit fields contain attributes such as colour, record type, or ident- 
ifier type. 


Procedure The program obtains a mask consisting of right-justified 0 
bits covering the field’s width. It then shifts the mask and the bit field 
left to align them with the specified lowest bit position. It logically 
ANDs the mask and the original data word, thus clearing the required 
bit positions, and then logically ORs the result with the shifted bit field. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Starting (lowest) bit position in the field (0-15) 
Width of the field in bits (0-15) 


Low byte of bit field (value to insert) 
High byte of bit field (value to insert) 


Low byte of data 
High byte of data 


Exit conditions 
Result in register AX 


The result is the original data value with the bit field inserted, starting at 
the specified lowest bit position. 


Examples 
1. Data: Value = F67Ci¢ = 1111011001111100, 
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Lowest bit position = 4 
Number of bits in the field = 8 
Bit field = 008B16 = 0000000010001011, 

Result: Value with bit field inserted = F8BCi¢ 
= 1111100010111100, 
The 8-bit field has been inserted into the original value 
starting at bit 4 (i.e. into bits 4-11) 

2. Data: Value = A2D4i¢ = 1010001011010100, 

Lowest bit position = 6 
Number of bits in the field = 5 
Bit field = 001516 = 0000000000010101, 

Result: Value with bit field inserted = A5544¢ 
= 1010010101010100, 
The 5-bit field has been inserted into the original value 
starting at bit 6 (i.e. into bits 6-10). Those five bits were 
01011, (0Bi6) and are now 101012 (1516) 


Registers used AX, BX, CX, DI, DX, F, SI 


Execution time 8 x LOWEST BIT POSITION plus 103 cycles over- 
head. The lowest bit position of the field determines how many times 
the program must shift the mask and the field left. For example, if the 
starting position is bit 10, the execution time is 


8 X 10 + 103 = 80 + 103 = 183 cycles 


Program size 65 bytes (including the table of masks) 


Data memory required None 


Special cases 


1. Attempting to insert a field that would extend beyond the end of the 
word causes the program to insert only the bits through bit 15. That is, 
no wraparound is provided. If, for example, the user attempts to insert a 
6-bit field starting at bit 14, only 2 bits (bits 14 and 15) are actually 
replaced. 
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2. Both the lowest bit position and the length of the bit field are 
interpreted mod 16. For example, bit position 17 is the same as bit 
position 1 and a 20-bit field is the same as a 4-bit field. 


3. Attempting to insert a field of 0 width causes a return with a result 
equal to the initial data. 


Title: Bit Field Insertion 
Name: BFI 
Purpose: Inserts a field of bits which is 


normalized to bit 0 into a 16-bit word. 

NOTE: IF THE REQUESTED FIELD IS TOO LONG, THEN 
ONLY THE BITS THROUGH BIT 15 WILL BE 
INSERTED. FOR EXAMPLE, IF A 4-BIT FIELD 
IS TO BE INSERTED STARTING AT BIT 15, 
THEN ONLY THE FIRST BIT WILL BE INSERTED 
AT BIT 15. 


Entry: TOP OF STACK 
Low byte of return address 
High byte of return address 
Bit position at which inserted field will 
start (0..15) 
Width of field in bits (0..15) 
Low byte of value to insert 
High byte of value to insert 
Low byte of value 
High byte of value 


Exit: Register AX = Value with field inserted 
Registers Used: AX,BX,CX,DI,DX,F,SI 
Time: 103 cycles overhead plus 


(8 X Lowest bit position) cycles 
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Size: Program 65 bytes (including the table 
of masks) 
BFI 
POP DI 7;SAVE RETURN ADDRESS 
, 
; EXIT WITH DATA AS RESULT IF FIELD WIDTH IS ZERO 
, 
POP CX ;GET NUMBER OF BITS IN FIELD, 


7 LOWEST BIT POSITION 
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AND CX,OFOFH 7BE SURE FIELD WIDTH, LOWEST BIT 
7 POSITION ARE BOTH 0Q..15 
POP DX 7GET VALUE TO INSERT 
POP AX 7GET DATA VALUE 
TEST CH,CH 7 TEST NUMBER OF BITS IN FIELD 
JZ EXITBF 7BRANCH CEXIT) IF FIELD WIDTH IS ZERO 
7 RESULT IN AX IS ORIGINAL DATA 
a 
; USE FIELD WIDTH TO OBTAIN MASK FROM ARRAY 
; 16-BIT MASK HAS A NUMBER OF RIGHT-JUSTIFIED 0 BITS GIVEN 
; BY FIELD WIDTH 
a 
MOV BX ,AX 7 SAVE DATA VALUE 
MOV AL,CH 7EXTEND FIELD WIDTH TO 16 BITS FOR 
7 USE AS INDEX 
CBW 7CLEAR UPPER BYTE OF INDEX BY 
7 EXTENSION (BIT 7 OF WIDTH IS 0) 
SHL AX,1 7DOUBLE FIELD WIDTH TO ACCESS INTO 
7 TABLE OF 16-BIT MASKS 
MOV S1,AX 
MOV AX,MSKARY-2CSI] ;GET MASK FROM ARRAY 
,NOTE FIELD WIDTH IS 1..15 ONLY SINCE 
7 ZERO WIDTH CAUSES EARLIER EXIT 
a 
; SHIFT MASK AND FIELD TO BE INSERTED LEFT TO ALIGN THEM WITH 
; THE FIELD'S LOWEST BIT POSITION 
a 
ROL AX,CL 7ROTATE MASK LEFT TO ALIGN IT, 
7 FILLING EMPTY POSITIONS WITH 1S 
SHL DX,CL 7SHIFT FIELD TO BE INSERTED LEFT 
7 TO ALIGN IT 
7THESE OPERATIONS BOTH ASSUME THAT A 
7 SHIFT OF O BITS DOES NOT AFFECT 
7  OPERAND 
g 
; USE MASK TO CLEAR FIELD, THEN OR IN INSERT VALUE 
AND AX ,BX 7AND DATA VALUE WITH MASK 
OR AX,DX 7OR IN INSERT VALUE 
a 
; EXIT TO RETURN ADDRESS 
’ 
EXITBF: 
JMP DI 7EXIT TO RETURN ADDRESS 
; MASK ARRAY USED TO CLEAR THE BIT FIELD INITIALLY 
; HAS 0 BITS RIGHT-JUSTIFIED IN 1 TO 15 BIT POSITIONS 
, 
MSKARY 
DW 1111111111111110B 
DW 1111111111111100B 
DW 1111111111111000B 
DW 1111111111110000B 
DW 1111111111100000B 


DW 1111111111000000B 


we Ne Ne Ne Ne 


SC4B: 


; 

7 DATA 
; 

VAL 
VALINS 


NBITS 
POS 
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1111111110000000B 
1111111100000000B 
1111111000000000B 
1111110000000000B 
11111000000000008B 
1111000000000000B 
1110000000000000B 
1100000000000000B 
10000000000000008B 


SAMPLE EXECUTION 


MOV 
PUSH 
MOV 
PUSH 
MOV 
MOV 
PUSH 
CALL 


JMP 


DW 
DW 
DB 
DB 


END 


AX, CVAL] 

AX 

AX, CVALINS] 
AX 

AH, CNBITS] 
AL,CPOSJ 

AX 

BFI 


SC4B 


1234H 
OOOEH 


OCH 


7GET VALUE 
7GET VALUE TO INSERT 


7GET FIELD WIDTH IN BITS 
7GET LOWEST BIT POSITION OF FIELD 


7INSERT BIT FIELD 

;RESULT FOR VAL=1234H, VALINS=OEH, 

; NBITS = 4, POS = OCH IS 

7 REGISTER AX = E234H 

7THIS OPERATION INSERTS 4 BITS (1110) 
7 STARTING IN BIT POSITION 12 (THAT 
; IS, INTO BITS 12 THROUGH 15) 
7REPEAT TEST 


7 DATA VALUE 

7VALUE TO INSERT 

7FIELD WIDTH IN BITS 

,LOWEST BIT POSITION IN FIELD 
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4C Multiple-precision arithmetic shift right 
(MPASR) 


Shifts a multi-byte operand right arithmetically by a specified number of 
bit positions. Sets the Carry flag from the last bit shifted out of the 
rightmost bit position. The length of the operand in bytes is 255 or less. 
The operand is stored with its least significant byte at the lowest address. 


Procedure If the operand has an odd number of bytes, the program 
begins by shifting the most significant byte right arithmetically. Other- 
wise, it obtains the sign bit from the most significant byte and saves that 
bit in the Carry. It then rotates the entire remaining operand right 1 bit, 
starting with the most significant word. It repeats the operation for the 
specified number of shifts. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Number of shifts (bit positions) 
Length of the operand in bytes 


Low byte of base address of operand (address of its least significant 
byte) 
High byte of base address of operand (address of its least significant 
byte) 


Exit conditions 


Operand shifted right arithmetically by the specified number of bit 
positions. The original sign bit is extended to the right. 


The Carry flag is set from the last bit shifted out of the rightmost bit 
position. It is cleared if either the number of shifts or the length of the 
operand is 0. 
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Examples 


1. Data: Length of operand (in bytes) = 8 
Operand = 85A4C719FE06741Ej¢ 
Number of shifts = 4 
Result: Shifted operand = F85A4C719FE06741 46. 
This is the original operand shifted right 4 bits arith- 
metically. The four most significant bits thus all take on 
the value of the original sign bit (1) 
Carry = 1, since the last bit shifted from the rightmost bit 
position was 1. 
2. Data: Length of operand (in bytes) = 4 
Operand = 3F6A42D3\4¢6 
Number of shifts = 3 
Result: Shifted operand = 07ED485A4¢6 
This is the original operand shifted right 3 bits arith- 
metically. The three most significant bits thus all take on 
the value of the original sign bit (0) 
Carry = 0, since the last bit shifted from the rightmost bit 
position was 0. 


Registers used AX, BX, CX, DI, DX, F, SI 


Execution time NUMBER OF SHIFTS xX (82 + 39 x LENGTH OF 
OPERAND IN BYTES/2) + 64 cycles. 

If, for example, NUMBER OF SHIFTS = 6 and LENGTH OF 
OPERAND IN BYTES = 8, the execution time is 


6 X (82 + 39 x 4) + 64 = 6 X 238 + 64 = 1492 cycles 


Program size 55 bytes 


Data memory required None 


Special cases 


1. Ifthe length of the operand is 0, the program exits immediately with 
the operand unchanged and the Carry flag cleared. 
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2. Ifthe number of shifts is 0, the program exits immediately with the 
operand unchanged and the Carry flag cleared. 


Title: Multiple-Precision Arithmetic Shift Right 

Name: MPASR 

Purpose: Arithmetic shift right a multi-byte operand 
N bits. 

Entry: TOP OF STACK 


Low byte of return address 

High byte of return address 
Number of bits to shift 

Length of the operand in bytes 
Low byte of operand base address 
High byte of operand base address 


The operand is stored with ARRAYCO] as its 
least significant byte and ARRAYCLENGTH-1] 
as its most significant byte 


Exit: Operand shifted right with the most 
significant bit propagated. 
Carry := Last bit shifted from least 
significant position. 


Registers Used: AX,BX,CX,DI,DX,F,SI 


Time: 64 cycles overhead plus 
((39 * Length/2) + 82) cycles per shift 
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Size: Program 55 bytes 
MPASR: 
POP DX 7;SAVE RETURN ADDRESS 
7 
; EXIT IF LENGTH OF OPERAND OR NUMBER OF BITS TO SHIFT 
; IS ZERO. CARRY IS CLEARED (BY TEST) IN EITHER CASE 
7 . 
POP CX 7;GET OPERAND LENGTH, NUMBER OF BITS 
>; TO SHIFT 
POP DI 7;GET OPERAND BASE ADDRESS 
TEST CL,CL 7TEST NUMBER OF BITS TO SHIFT 
JZ EXITAS 7EXIT IF NUMBER OF BITS TO SHIFT IS ZERO 
TEST CH,CH 7TEST LENGTH OF OPERAND 


JZ EXITAS 7EXIT IF LENGTH OF OPERAND IS ZERO 


we Ne No 


SRLP: 


(TE Ss Ss Ne Ne 


VEN: 


SRLP1: 


® 
a 


s 
av 


7 
EXITAS: 
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SAVE POINTER TO MOST SIGNIFICANT BYTE OF OPERAND 


MOV BL,CH 7MAKE OPERAND LENGTH INTO 16-BIT INDEX 
SUB BH,BH 
ADD DI ,BX 7FIND ADDRESSS JUST BEYOND END OF OPERAND 
DEC DI 7CALCULATE ADDRESS OF MOST SIGNIFICANT 

7 BYTE OF OPERAND 
MOV AL,CL 7MAKE NUMBER OF BITS TO SHIFT INTO 


> 16-BIT COUNT 
SUB AH,AH 


SHIFT ENTIRE OPERAND RIGHT ONE BIT ARITHMETICALLY 
IF LENGTH IS ODD, DO A BYTE-LENGTH ARITHMETIC SHIFT 
RIGHT OF MOST SIGNIFICANT BYTE FIRST 


MOV SI,DI 7GET ADDRESS OF MOST SIGNIFICANT BYTE 

MOV CX ,BX 7GET OPERAND LENGTH IN BYTES 

SAR CX,1 ;DIVIDE BY 2 TO GET LENGTH IN WORDS 

JNC EVEN ;JUMP IF LENGTH IN BYTES IS EVEN 

SAR BYTE PTR CSI],1 ;IF LENGTH IS ODD, START WITH 
7 BYTE-LENGTH SHIFT OF MOST SIGNIFICANT 
; BYTE 

DEC SI 7POINT TO NEXT BYTE 

JMP STSHFT 7NOW START WORD-LENGTH SHIFTS 


IF LENGTH IS EVEN, USE SIGN OF MOST SIGNIFICANT BYTE 
AS INITIAL CARRY INPUT TO PRODUCE ARITHMETIC SHIFT 


MOV CH,CS1] 7GET MOST SIGNIFICANT BYTE 
SHL CH,1 7MOVE SIGN BIT TO CARRY 
SUB CH,CH 7CLEAR HIGH BYTE OF SHIFT COUNT 


SHIFT EACH REMAINING WORD OF OPERAND RIGHT ONE BIT 
START WITH MOST SIGNIFICANT WORD IF LENGTH IS EVEN 
START WITH WORD AFTER MOST SIGNIFICANT BYTE IF LENGTH IS ODD 


RCR WORD PTR CSI],1 7ROTATE NEXT WORD RIGHT 
DEC SI 

DEC SI 

LOOP ASRLP1 7CONTINUE THROUGH ALL WORDS 


COUNT NUMBER OF SHIFTS 


DEC AX 7DECREMENT NUMBER OF SHIFTS 
JNZ ASRLP 7CONTINUE UNTIL DONE 


EXIT TO RETURN ADDRESS 


JMP DX 7EXIT TO RETURN ADDRESS 
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SAMPLE EXECUTION 


MOV BX,CAYADR] 7GET BASE ADDRESS OF OPERAND 
PUSH BX 

MOV AH,SZAY 7GET LENGTH OF OPERAND IN BYTES 
MOV AL,CSHIFTS] 7GET NUMBER OF SHIFTS 

PUSH AX 

CALL MPASR 7ARITHMETIC SHIFT RIGHT 


7RESULT OF SHIFTING AY=EDCBA987654321H 
74 BITS IS AY=FEDCBA98765432H, C=0 


, 
7DATA SECTION 


a 

SZAY 
SHIFTS 
AYADR 
AY 


7 IN MEMORY AY = 032H 

; AY+1 = 054H 

; AY+2 = 076H 

; AY+3 = 098H 

; AY+4 = OBAH 

; AY+5 = ODCH 

; AY+6 = QOFEH 
JMP SC4C 7REPEAT TEST 
EQU 7 7LENGTH OF OPERAND IN BYTES 
DB 4 ;NUMBER OF SHIFTS 
DW AY 7BASE ADDRESS OF OPERAND 
DB 21H,43H,65H,87H,OA9H,OCBH,OEDH ;OPERAND 


END 
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4D Miultiple-precision logical shift left 
(MPLSL) 


Shifts a multi-byte operand left logically by a specified number of bit 
positions. The length of the operand (in bytes) is 255 or less. Sets the 
Carry flag from the last bit shifted out of the leftmost bit position. The 
operand is stored with its least significant byte at the lowest address. 


Procedure If the operand has an odd number of bytes, the program 
begins by shifting the least significant byte left logically. Otherwise, it 
clears the Carry initially (to fill with a 0 bit). It then shifts the entire 
remaining operand left 1 bit, starting with the least significant word. It 
repeats the operation for the specified number of shifts. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Number of shifts (bit positions) 
Length of the operand in bytes 


Low byte of base address of operand (address of its least significant 
byte) 
High byte of base address of operand (address of its least significant 
byte) 


Exit conditions 


Operand shifted left logically by the specified number of bit positions. 
The least significant bit positions are filled with Os. 

The Carry flag is set from the last bit shifted out of the leftmost bit 
position. It is cleared if either the number of shifts or the length of the 
operand is 0. 


Examples 


1. Data: Length of operand (in bytes) = 8 
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Operand = 85A4C719FE06741Ei¢ 
Number of shifts = 4 

Result: Shifted operand = 5A4C719FE06741E04¢. 
This is the original operand shifted left 4 bits logically. 
The four least significant bits are all cleared. 
Carry = 0, since the last bit shifted from the leftmost bit 
position was 0. 

2. Data: Length of operand (in bytes) = 4 

Operand = 3F6A42D316 
Number of shifts = 3 

Result: Shifted operand = FB5216984¢. 
This is the original operand shifted left 3 bits logically. 
The three least significant bits are all cleared. 
Carry = 1, since the last bit shifted from the leftmost bit 
position was 1. 


Registersused AX, BX, CX, DI, DX, F, SI 


Execution time NUMBER OF SHIFTS x (55 + 41 x LENGTH OF 
OPERAND IN BYTES/2) + 59 cycles. 

If, for example, NUMBER OF SHIFTS = 6 and LENGTH OF 
OPERAND IN BYTES = 8, the execution time is 


6 x (55 + 41 x 4) + 59 = 6 x 219 + 59 = 1373 cycles 
Program size 41 bytes 
Data memory required None 


Special cases 


1. Ifthe length of the operand is 0, the program exits immediately with 
the operand unchanged and the Carry flag cleared. 


2. Ifthe number of shifts is 0, the program exits immediately with the 
operand unchanged and the Carry flag cleared. 
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Title: Multiple-Precision Logical Shift Left 

Name: MPLSL 

Purpose: Logical shift left a multi-byte operand 
N bits. 

Entry: TOP OF STACK 


Low byte of return address 

High byte of return address 
Number of bits to shift 

Length of the operand in bytes 
Low byte of operand base address 
High byte of operand base address 


The operand is stored with ARRAYLCO] as its 
least significant byte and ARRAYCLENGTH-1] 
as its most significant byte 


Exit: Operand shifted Left filling the least 
significant bits with zeros. 
Carry := Last bit shifted from most 


significant position 


Registers Used: AX,BX,CX,DI,DX,F,SI 


Time: 59 cycles overhead plus 


((41 X length/2) + 55) cycles per shift 


Size: Program 41 bytes 
MPLSL: . 
POP DX ;SAVE RETURN ADDRESS 
a 
; EXIT IF LENGTH OF OPERAND OR NUMBER OF BITS TO SHIFT 
; IS ZERO. CARRY IS CLEARED BY TEST IN EITHER CASE 
a 
POP CX ;GET OPERAND LENGTH, NUMBER OF BITS 
>; TO SHIFT 
POP DI ;GET OPERAND BASE ADDRESS 
TEST CL,CL ;TEST NUMBER OF BITS TO SHIFT 
JZ EXITLS 7;EXIT IF NUMBER OF BITS TO SHIFT IS ZERO 
TEST CH,CH ;TEST LENGTH OF OPERAND 
JZ EXITLS z;EXIT IF LENGTH OF OPERAND IS ZERO 
MOV BL,CH ;MAKE OPERAND LENGTH INTO 16-BIT QUANTITY 
SUB BH ,BH 
MOV AL,CL ;MAKE NUMBER OF BITS TO SHIFT INTO 16-BIT 


SUB AH,AH 


7 QUANTITY 
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SHIFT ENTIRE OPERAND LEFT ONE BIT LOGICALLY 

IF LENGTH IS ODD, DO A BYTE-LENGTH LOGICAL SHIFT 
ON LEAST SIGNIFICANT BYTE FIRST 

IF LENGTH IS EVEN, MAKE INITIAL CARRY INPUT ZERO TO 
PRODUCE LOGICAL SHIFT 


MOV S1,DI 7POINT TO LEAST SIGNIFICANT BYTE 
MOV CX ,BX 7GET LENGTH OF OPERAND IN BYTES 
SAR CX,1 7DIVIDE BY 2 TO GET LENGTH IN WORDS 
JNC LSLLP1 7JUMP IF LENGTH IN BYTES IS EVEN 


7 INITIAL CARRY INPUT IS ZERO TO 
7, FILL WITH ZEROS 

SHL BYTE PTR CSI],1 ;IF LENGTH IS ODD, START WITH 
7 BYTE~LENGTH LOGICAL SHIFT OF LEAST 
7 SIGNIFICANT BYTE 

INC SI 7POINT TO NEXT BYTE 


ROTATE EACH WORD OF OPERAND LEFT ONE BIT 
START WITH LEAST SIGNIFICANT WORD IF LENGTH IS EVEN 
START WITH WORD AFTER LEAST SIGNIFICANT BYTE IF LENGTH IS ODD 


RCL WORD PTR CSI1],1 7ROTATE NEXT WORD LEFT 
INC SI 

INC SI 

LOOP LSLLP1 7CONTINUE THROUGH ALL WORDS 


COUNT NUMBER OF SHIFTS 


DEC AX 7DECREMENT NUMBER OF SHIFTS 
JNZ LSLLP 7CONTINUE UNTIL DONE 
EXIT TO RETURN ADDRESS 


JMP DX 7EXIT TO RETURN ADDRESS 


SAMPLE EXECUTION 


MOV BX, CAYADR] 7GET BASE ADDRESS OF OPERAND 
PUSH BX 

MOV AH,SZAY 7GET LENGTH OF OPERAND IN BYTES 
MOV AL,CSHIFTS] 7GET NUMBER OF SHIFTS 

PUSH AX 

CALL MPLSL 7LOGICAL SHIFT LEFT 


7RESULT OF SHIFTING AY=EDCBA987654321H 
74 BITS IS AY=DCBA9876543210H, C=0 

7 IN MEMORY AY = 010H 

; AY+1 032H 
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; AY+2 = 054H 
; AY+3 = 076H 
; AY+4 = 098H 
; AY+5 = OBAH 
; AY+6 = ODCH 
JMP $C4D ;REPEAT TEST 
’ 
;DATA SECTION 
ao 
SZAY EQU 7 ;LENGTH OF OPERAND IN BYTES 
SHIFTS DB 4 ;NUMBER OF SHIFTS 
AYADR DW AY ;BASE ADDRESS OF OPERAND 
AY DB 21H,43H,65H,87H,OA9H,OCBH,OEDH ;OPERAND 


END 
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4E Multiple-precision logical shift right 
(MPLSR) 


Shifts a multi-byte operand right logically by a specified number of bit 
positions. The length of the operand (in bytes) is 255 or less. Sets the 
Carry flag from the last bit shifted out of the rightmost bit position. The 
operand is stored with its least significant byte at the lowest address. 


Procedure If the operand has an odd number of bytes, the program 
begins by shifting the most significant byte right logically. Otherwise, it 
clears the Carry initially (to fill with a 0 bit). It then shifts the entire 
remaining operand right one bit, starting with the most significant word. 
It repeats the operation for the specified number of shifts. 





Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Number of shifts (bit positions) 
Length of the operand in bytes 


Low byte of base address of operand (address of its least significant 


byte) 
High byte of base address of operand (address of its least significant 


byte) 


Exit conditions 


Operand shifted right logically by the specified number of bit positions. 
The most significant bit positions are filled with Os. 

The Carry flag is set from the last bit shifted out of the rightmost bit 
position. It is cleared if either the number of shifts or the length of the 
operand is 0. 





Examples 


1. Data: Length of operand (in bytes) = 8 
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Operand = 85A4C719FE06741E4¢ 
Number of shifts = 4 

Result: Shifted operand = 085A4C719FE06741,¢. 
This is the original operand shifted right 4 bits logically. 
The four most significant bits are all cleared. 
Carry = 1, since the last bit shifted from the rightmost bit 
position was 1. 


2. Data: Length of operand (in bytes) = 4 
Operand = 3F6A42D33;¢ 
Number of shifts = 3 
Result: Shifted operand = 07ED485A4¢. 
This is the original operand shifted right 3 bits logically. 
The three most significant bits are all cleared. 
Carry = 0, since the last bit shifted from the rightmost bit 


position was 0. 
mT 


Registers used AX, BX, CX, DI, DX, F, SI 


Execution time NUMBER OF SHIFTS x (55 + 41 x LENGTH OF 
OPERAND IN BYTES/2) + 64 cycles. 

If, for example, NUMBER OF SHIFTS = 6 and LENGTH OF 
OPERAND IN BYTES = 8, the execution time is 


6 x (55 + 41 x 4) + 64 =6 x 219 + 64 = 1378 cycles 


Program size 44 bytes 


Data memory required None 


Special cases 
1. Ifthe length of the operand is 0, the program exits immediately with 
the operand unchanged and the Carry flag cleared. 


2. Ifthe number of shifts is 0, the program exits immediately with the 
operand unchanged and the Carry flag cleared. 
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Title: Multiple-Precision Logical Shift Right 

Name: MPLSR 

Purpose: Logical shift right a multi-byte operand 
N bits. 

Entry: TOP OF STACK 


Low byte of return address 

High byte of return address 
Number of bits to shift 

Length of the operand in bytes 
Low byte of operand base address 
High byte of operand base address 


The operand is stored with ARRAYCO] as its 
least significant byte and ARRAYCLENGTH-1] 
as its most significant byte 


Exit: Operand shifted right filling the most 
significant bits with zeros. 
Carry := Last bit shifted from least 


significant position. 


Registers Used: AX,BX,CX,DI,DX,F,SI 


Time: 64 cycles overhead plus 


((41 X Length/2) + 55) cycles per shift 


Size: Program 44 bytes 


MPLSR: 
POP DX sSAVE RETURN ADDRESS 
A 
; EXIT IF LENGTH OF OPERAND OR NUMBER OF BITS TO SHIFT 
; IS ZERO. CARRY IS CLEARED BY TEST IN EITHER CASE 
a 
POP CX 3;GET OPERAND LENGTH, NUMBER OF BITS 
> TO SHIFT 
POP DI 3;GET OPERAND BASE ADDRESS 
TEST CL,CL ;TEST NUMBER OF BITS TO SHIFT 
JZ EXITLS sEXIT IF NUMBER OF BITS TO SHIFT IS ZERO 
TEST CH,CH ;TEST LENGTH OF OPERAND 
JZ EXITLS s;EXIT IF LENGTH OF OPERAND IS ZERO 
MOV BL,CH sMAKE OPERAND LENGTH INTO 16-BIT QUANTITY 
SUB BH,BH 
MOV AL,CL ;MAKE NUMBER OF BITS TO SHIFT INTO 16-BIT 


7 QUANTITY 


EVEN: 
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SUB AH,AH 
SAVE POINTER TO END OF OPERAND 


ADD DI ,BX 7FIND ADDRESS JUST BEYOND END OF OPERAND 
DEC DI ,CALCULATE ADDRESS OF MOST SIGNIFICANT 
, BYTE OF OPERAND 


SHIFT ENTIRE OPERAND RIGHT ONE BIT LOGICALLY 

IF LENGTH IS ODD, START BY SHIFTING MOST SIGNIFICANT BYTE 
RIGHT LOGICALLY 

IF LENGTH IS EVEN, MAKE INITIAL CARRY INPUT ZERO TO 
PRODUCE LOGICAL SHIFT 


MOV SI,DI 7POINT TO END OF OPERAND 

MOV CX ,BX 7GET LENGTH OF OPERAND IN BYTES 

SAR CX,1 ,DIVIDE BY 2 TO GET LENGTH IN WORDS 
JNC EVEN ;JUMP IF LENGTH IN BYTES IS EVEN 


7 INITIAL CARRY INPUT IS ZERO TO 
, FILL WITH ZEROS 

SHR BYTE PTR CSI],1 ;IF LENGTH IS ODD, START WITH 
7 BYTE-LENGTH LOGICAL SHIFT OF MOST 
7 SIGNIFICANT BYTE 

DEC SI 7POINT TO NEXT BYTE 


DEC SI ,START WORD TRANSFERS BY POINTING TO 
> LOW BYTE OF NEXT WORD 


SHIFT EACH WORD OF OPERAND RIGHT ONE BIT 
START WITH MOST SIGNIFICANT WORD IF LENGTH IS EVEN 
START WITH WORD BEFORE MOST SIGNIFICANT BYTE IF LENGTH IS ODD 


RCR WORD PTR CSI1J,1 7ROTATE NEXT WORD RIGHT 
DEC SI 

DEC SI 

LOOP LSRLP1 7CONTINUE THROUGH ALL WORDS 


COUNT NUMBER OF SHIFTS 


DEC AX 7DECREMENT NUMBER OF SHIFTS 
JNZ LSRLP 7CONTINUE UNTIL DONE 
EXIT TO RETURN ADDRESS 


JMP DX 7EXIT TO RETURN ADDRESS 


SAMPLE EXECUTION 
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MOV BX, CAYADRI 7;GET BASE ADDRESS OF OPERAND 
PUSH BX 

MOV AH,SZAY ;GET LENGTH OF OPERAND IN BYTES 
MOV AL,CSHIFTS] ;GET NUMBER OF SHIFTS 

PUSH AX 

CALL MPLSR ;LOGICAL SHIFT LEFT 


RESULT OF SHIFTING AY=EDCBA987654321H 
34 BITS IS AY=QEDCBA98765432H, C=0 


, 
zDATA SECTION 


a 

SZAY 
SHIFTS 
AYADR 
AY 


; IN MEMORY AY = 032H 

; AY+1 = O54H 

; AY+2 = 076H 

; AY+3 = 098H 

; AY+4 = OBAH 

; AY+5 = ODCH 

; AY+6 = OOEH 
JMP SC4E ;REPEAT TEST 
EQU 7 ; LENGTH OF OPERAND IN BYTES 
DB 4 ;NUMBER OF SHIFTS 
DW AY ;BASE ADDRESS OF OPERAND 
DB 21H,43H,65H,87H,OAIH,OCBH,OEDH ;OPERAND 


END 


4F Multiple-precision rotate right (MPRR) 135 


4F Miultiple-precision rotate right 
(MPRR) 


Rotates a multi-byte operand right by a specified number of bit positions 
as if the most significant bit and least significant bit were connected. The 
length of the operand (in bytes) is 255 or less. Sets the Carry flag from 
the last bit shifted out of the rightmost bit position. The operand is 
stored with its least significant byte at the lowest address. 


Procedure The program shifts bit 0 of the least significant byte of the 
operand to the Carry flag and shifts all the full words in the operand 
right 1 bit, starting with the most significant word. It then shifts the least 
significant byte right 1 bit, but saves the result only if the operand has an 
odd number of bytes. It repeats the operation for the specified number 
of rotates. 





Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Number of rotates (bit positions) 
Length of the operand in bytes 


Low byte of base address of operand (address of its least significant 
byte) 
High byte of base address of operand (address of its least significant 
byte) 


Exit conditions 


Operand rotated right by the specified number of bit positions. The 
most significant bit positions are filled from the least significant bit 
positions. 

The Carry flag is set from the last bit shifted out of the rightmost bit 
position. It is cleared if either the number of shifts or the length of the 
operand is 0). 
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Examples 


1. Data: Length of operand (in bytes) = 8 
Operand = 85A4C719FE06741E1¢6 
Number of rotates = 4 

Result: Shifted operand = E85A4C719FE06741 46. 

This is the original operand rotated right 4 bits. The four 
most significant bits are equivalent to the original 4 least 
significant bits. 
Carry = 1, since the last bit shifted from the rightmost bit 
position was 1. 


2. Data: Length of operand (in bytes) = 4 
Operand = 3F6A42D3i6¢6 
Number of rotates = 3 

Result: Shifted operand = 67ED485A 46. 

This is the original operand rotated right 3 bits. The three 
most significant bits (011) are equivalent to the original 
three least significant bits. 
Carry = 0, since the last bit shifted from the rightmost bit 
position was 0. 


Registers used AX, BX, CX, DI, DX, F, SI 


Execution time NUMBER OF ROTATES xX (82 + 42 x LENGTH 
OF OPERAND IN BYTES/2) + 79 cycles. 

If, for example, NUMBER OF ROTATES = 6 and LENGTH OF 
OPERAND IN BYTES = 8, the execution time is 


6 X (82 + 42 x 4) + 79 = 6 X 250 + 79 = 1579 cycles 


Program size 56 bytes 


Data memory required None 


Special cases 


1. Ifthe length of the operand is 0, the program exits immediately with 
the operand unchanged and the Carry flag cleared. 
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2. Ifthe number of rotates is 0, the program exits immediately with the 
operand unchanged and the Carry flag cleared. 





Title: Multiple-Precision Rotate Right 

Name: MPRR 

Purpose: Rotate right a multi-byte operand 
N bits. 

Entry: TOP OF STACK 


Low byte of return address 

High byte of return address 
Number of bits to rotate 

Length of the operand in bytes 
Low byte of operand base address 
High byte of operand base address 


The operand is stored with ARRAYLO] as its 
Least significant byte and ARRAYCLENGTH-1] 
as its most significant byte 


Operand rotated right 
Carry := Last bit shifted from Least 
significant position. 


Registers Used: AX,BX,CX,DI,DX,F,SI 


Time: 


Size: 


79 cycles overhead plus 
((42 X lLength/2) + 82) cycles per rotate 


Program 56 bytes 


POP DX 7 SAVE RETURN ADDRESS 


EXIT IF LENGTH OF OPERAND OR NUMBER OF BITS TO ROTATE 
IS ZERO. CARRY IS CLEARED BY TEST IN EITHER CASE 


POP CX 7GET OPERAND LENGTH, NUMBER OF BITS 
> TO ROTATE 
POP DI 7GET OPERAND BASE ADDRESS 
PUSH DX 7PUT RETURN ADDRESS BACK IN STACK 
TEST CL,CL 7TEST NUMBER OF BITS TO ROTATE 
JZ EXITRR ,EXIT IF NUMBER OF BITS TO ROTATE IS ZERO 
TEST CH,CH 7TEST LENGTH OF OPERAND 


JZ EXITRR 7EXIT IF LENGTH OF OPERAND IS ZERO 
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MOV BL,CH ;MAKE OPERAND LENGTH INTO 16-BIT QUANTITY 
SUB BH,BH 
LEA DX,-2C0D1I+BX] 7 SAVE ADDRESS OF MOST SIGNIFICANT 
7 WORD OF OPERAND 
MOV AL,CL ;MAKE NUMBER OF BITS TO ROTATE INTO 16-BIT 
7 QUANTITY 
SUB AH,AH 
a 
; ROTATE ENTIRE OPERAND RIGHT ONE BIT 
; USE PREVIOUS LEAST SIGNIFICANT BIT AS INITIAL CARRY INPUT 
; TO PRODUCE ROTATION 
7 
RRLP: 
MOV CX ,BX 7;GET LENGTH OF OPERAND IN BYTES 
SAR CX,1 ;DIVIDE BY 2 TO GET LENGTH IN WORDS 
MOV CH,CDII ;GET LEAST SIGNIFICANT BYTE OF OPERAND 
SHR CH,1 ;MOVE LEAST SIGNIFICANT BIT TO CARRY 
SUB CH,CH ;CLEAR HIGH BYTE OF COUNT 
MOV SI,DX 7POINT TO MOST SIGNIFICANT WORD 
a 
; SHIFT EACH WORD OF OPERAND RIGHT ONE BIT 
; START WITH MOST SIGNIFICANT WORD 
7 
RRLP1: 
RCR WORD PTR CSI1J,1 7SHIFT NEXT WORD RIGHT 
DEC SI 
DEC SI 
LOOP RRLP1 ;CONTINUE THROUGH ALL FULL WORDS 
7 
; SHIFT LEAST SIGNIFICANT BYTE RIGHT ONE BIT 
; RETAIN SHIFTED BYTE ONLY IF OPERAND HAS ODD LENGTH 
a 
MOV CL,CDI] 7GET LEAST SIGNIFICANT BYTE 
RCR CL,1 7SHIFT IT RIGHT IN CASE IT WAS NOT 
7 HANDLED AS PART OF A FULL WORD 
;NOTE: MUST DO THIS EVEN IF UNNECESSARY 
7 TO AVOID LOSING CARRY FROM LAST 
7 WORD-LENGTH SHIFT 
TEST BL,1 ;CHECK IF LENGTH IN BYTES IS ODD (THIS 
7 CLEARS CARRY) 
JZ CNTROT 7JUMP IF LENGTH IN BYTES IS EVEN 
MOV CDI],CL 7 SAVE SHIFTED LEAST SIGNIFICANT BYTE 
7 IF LENGTH IN BYTES IS ODD 
a 
; COUNT NUMBER OF ROTATES 
7 
CNTROT: 
DEC AX 7DECREMENT NUMBER OF ROTATES 
JNZ RRLP 7;CONTINUE UNTIL DONE 
a 
; EXIT TO RETURN ADDRESS 
7 
EXITRR: 


RET 7EXIT TO RETURN ADDRESS 


we “Ne Na Ne 
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SAMPLE EXECUTION 


MOV 
PUSH 
MOV 
MOV 
PUSH 
CALL 


JMP 


7 
7DATA SECTION 


a 

SZAY 
ROTATS 
AYADR 
AY 


EQU 
DB 
DW 
DB 
END 


BX, CAYADR] 7GET BASE ADDRESS OF OPERAND 

BX 

AH,SZAY 7GET LENGTH OF OPERAND IN BYTES 
AL,CROTATS] 7GET NUMBER OF ROTATES 

AX 

MPRR 7ROTATE RIGHT 


7RESULT OF ROTATING AY=EDCBA987654321H 
74 BITS IS AY=1EDCBA98765432H, C=0 


7 IN MEMORY AY = 032H 
; AY+1 = 054H 
; AY+2 = 076H 
; AY+3 = 098H 
} AY+4 = OBAH 
; AY+5 = ODCH 
; AY+6 = O1EH 

SC4F ;REPEAT TEST 

7 7 LENGTH OF OPERAND IN BYTES 

4 NUMBER OF ROTATES 

AY 7BASE ADDRESS OF OPERAND 


21H,43H,65H,87H,OA9H,OCBH,OEDH ;OPERAND 
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4G Multiple-precision rotate left 
(MPRL) 





Rotates a multi-byte operand left by a specified number of bit positions 
as if the most significant bit and least significant bit were connected. The 
length of the number (in bytes) is 255 or less. Sets the Carry flag from 
the last bit shifted out of the leftmost bit position. The operand is stored 
with its least significant byte at the lowest address. 


Procedure The program shifts bit 7 of the most significant byte of the 
operand to the Carry flag and shifts all the full words in the operand left 
1 bit, starting with the least significant word. It then shifts the byte after 
the most significant full word left 1 bit, but saves the result only if the 
operand has an odd number of bytes. It repeats the operation for the 
specified number of rotates. 





Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Number of rotates (bit positions) 
Length of the operand in bytes 


Low byte of base address of operand (address of its least significant 
byte) , 

High byte of base address of operand (address of its least significant 
byte) 


Exit conditions 


Operand rotated left by the specified number of bit positions (the least 
significant bit positions are filled from the most significant bit positions). 
The Carry flag is set from the last bit shifted out of the leftmost bit 
position. It is cleared if either the number of shifts or the length of the 
operand is 0. 
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Examples 


1. Data: Length of operand (in bytes) = 8 
Operand = 85A4C719FE06741E 1. 
Number of rotates = 4 

Result: Shifted operand = 5A4C719FE06741E8.«. 

This is the original operand rotated left 4 bits. The four 
least significant bits are equivalent to the original four 
most significant bits. 
Carry = 0, since the last bit shifted from the leftmost bit 
position was 0. 


2. Data: Length of operand (in bytes) = 4 
Operand = 3F6A42D34¢ 
Number of rotates = 3 

Result: Shifted operand = FB521699,.. 

This is the original operand rotated left 3 bits. The three 
least significant bits (001) are equivalent to the original 
three most significant bits. 
Carry = 1, since the last bit shifted from the leftmost bit 


position was 0. 
eee 


Registers used AX, BX, CX, DI, DX, F, SI 


Execution time NUMBER OF ROTATES x (64 + 41 x LENGTH 
OF OPERAND IN BYTES/2) + 59 cycles. ) 

If, for example, NUMBER OF ROTATES = 6 and LENGTH OF 
OPERAND IN BYTES = 8, the execution time is 


6 x (64+ 41 x 4) + 59 = 6 x 228 + 59 = 1427 cycles 


Program size 53 bytes 


Data memory required None 


Special cases 


1. Ifthe length of the operand is 0, the program exits immediately with 
the operand unchanged and the Carry flag cleared. 
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2. Ifthe number of rotates is 0, the program exits immediately with the 
operand unchanged and the Carry flag cleared. 





Title: Multiple-Precision Rotate Left 

Name: MPRL 

Purpose: Rotate left a multi-byte operand 
N bits. 

Entry: TOP OF STACK 


Low byte of return address 

High byte of return address 
Number of bits to rotate 

Length of the operand in bytes 
Low byte of operand base address 
High byte of operand base address 


The operand is stored with ARRAY([O] as its 
least significant byte and ARRAYCLENGTH-1] 
as its most significant byte 


Exit: Number rotated left 
Carry := Last bit shifted from the most 
: significant position. 
Registers Used: AX,BX,CX,DI,DX,F,SI 
Time: 59 cycles overhead plus 
((41 X Length/2) + 64) cycles per rotate 
Size: Program 53 bytes 
POP DX sSAVE RETURN ADDRESS 


EXIT IF LENGTH OF OPERAND OR NUMBER OF BITS TO ROTATE 
IS ZERO. CARRY IS CLEARED BY TEST IN EITHER CASE 


POP CX sGET OPERAND LENGTH, NUMBER OF BITS 
> TO ROTATE | 
POP DI sGET OPERAND BASE ADDRESS 
TEST CL,CL sTEST NUMBER OF BITS TO ROTATE 
J2 EXITRL sEXIT IF NUMBER OF BITS TO ROTATE IS ZERO 
TEST CH,CH sTEST LENGTH OF OPERAND 
JZ EXITRL sEXIT IF LENGTH OF OPERAND IS ZERO 


MOV BL,CH zMAKE OPERAND LENGTH INTO 16-BIT QUANTITY 


Ag ws Ne We Ne No 


wes Ne Ne Ne Ne 


rri Se Ne ON 
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SUB BH,BH 

MOV AL,CL 7MAKE NUMBER OF BITS TO ROTATE INTO 16-BIT 
7 QUANTITY 

SUB AH,AH 


ROTATE ALL FULL WORDS IN OPERAND LEFT ONE BIT 
USE PREVIOUS MOST SIGNIFICANT BIT AS INITIAL CARRY INPUT 
TO PRODUCE ROTATION 


MOV S1I,DI zPOINT TO LEAST SIGNIFICANT WORD 

MOV CX ,BX 7GET LENGTH OF OPERAND IN BYTES 

SAR CX,1 zDIVIDE BY 2 TO GET LENGTH IN WORDS 

MOV CH,-10£BX+DI] 7GET MOST SIGNIFICANT BYTE 

SHL CH,1 ;SHIFT BIT 7 TO CARRY FOR USE IN ROTATION 
SUB CH,CH 7CLEAR HIGH BYTE OF COUNT 


SHIFT EACH FULL WORD OF OPERAND RIGHT ONE BIT 
START WITH LEAST SIGNIFICANT WORD 


RCL WORD PTR CSI1],1 ;SHIFT NEXT WORD LEFT 
INC SI 
INC SI 
LOOP RLLP1 7CONTINUE THROUGH ALL FULL WORDS 


SHIFT BYTE AFTER MOST SIGNIFICANT WORD RIGHT ONE BIT 
RETAIN SHIFTED BYTE ONLY IF OPERAND HAS ODD LENGTH 
AND THIS BYTE IS ACTUALLY ITS MOST SIGNIFICANT BYTE 


MOV CL,CST] 7GET POSSIBLE MOST SIGNIFICANT BYTE 
RCL CL,1 zSHIFT IT RIGHT IN CASE IT IS PART OF 
7 OPERAND 


sNOTE: MUST DO THIS EVEN IF UNNECESSARY 
7 TO AVOID LOSING CARRY FROM LAST 
7 WORD-LENGTH SHIFT 


TEST BL,1 7CHECK IF LENGTH IN BYTES IS ODD (THIS 
7 CLEARS CARRY) 

JZ CNTROT ;JUMP IF LENGTH IN BYTES IS EVEN 

MOV CSIJ,CL 7SAVE SHIFTED MOST SIGNIFICANT BYTE 


, IF LENGTH IN BYTES IS EVEN 
COUNT NUMBER OF ROTATES 
DEC AX ;DECREMENT NUMBER OF ROTATES 
JNZ RLLP 7CONTINUE UNTIL DONE 


EXIT TO RETURN ADDRESS 


JMP DX zEXIT TO RETURN ADDRESS 
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SAMPLE EXECUTION 


MOV 
PUSH 
MOV 
MOV 
PUSH 
CALL 


JMP 


7 
;DATA SECTION 


a 

SZAY 
ROTATS 
AYADR 
AY 


EQU 
DB 
DW 
DB 


END 


BX,CAYADR] 3;GET BASE ADDRESS OF OPERAND 
BX 
AH,SZAY 3GET LENGTH OF OPERAND IN BYTES 


AL,CROTATS] ;GET NUMBER OF ROTATES 

AX 

MPRL ;ROTATE LEFT 
sRESULT OF ROTATING AY=EDCBA987654321H 
34 BITS IS AY=DCBA987654321EH, C=0 


7 IN MEMORY AY = O1EH 
; AY+1 = 032H 
; AY+2 = O54H 
; AY+3 = O76H 
; AY+4 = 098H 
; AY+5 = OBAH 
; AY+6 = ODCH 

SC4G ;REPEAT TEST 

7 ;LENGTH OF OPERAND IN BYTES 

4 ;NUMBER OF ROTATES 

AY ;BASE ADDRESS OF OPERAND 


21H,43H,65H,87H,OA9IH,OCBH,OEDH ;OPERAND 


5 String manipulation 





5A String compare 
(STRCMP) 


Compares two strings and sets the Carry and Zero flags accordingly. 
Sets the Zero flag to 1 if the strings are identical and to 0 otherwise. Sets 
the Carry flag to 1 if the string with the base address higher in the stack 
(string 2) is larger than the other string (string 1), and to 0 otherwise. 
Each string consists of at most 256 bytes, including an initial byte 
containing the length. That is, these are Pascal-style strings with a length 
byte, rather than C language-style strings with a terminating character. 
If the two strings are identical through the length of the shorter, the 
longer string is considered to be larger. 


Procedure The program first determines which string is shorter. It 
then compares the strings a byte at a time through the length of the 
shorter one. It exits with the flags set if it finds corresponding bytes that 
differ. If the strings are the same through the length of the shorter one, 
the program sets the flags by comparing the lengths. 


Entry conditions 
Order in stack (starting from the top) 
Low byte of return address 
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High byte of return address 


Low byte of base address of string 2 
High byte of base address of string 2 


Low byte of base address of string 1 
High byte of base address of string 1 


Exit conditions 


Flags set as if string 2 had been subtracted from string 1. If the strings 
are the same through the length of the shorter one, the flags are set as if 
the length of string 2 had been subtracted from the length of string 1. 


Zero flag = 1 if the strings are identical, 0 if they are not identical. 


Carry flag = = 1 if string 2 is larger than string 1, 0 if they are identical or 
string 1 is larger. If the strings are the same through the length of the 
shorter one, the longer one is considered to be larger. 


Examples 


1. Data: String 1 = 05‘PRINT” (05 is the length of the string) 
String 2 = 03‘END’ (03 is the length of the string) 
Result: Zero flag = 0 (strings are not identical) 
Carry flag = 0 (string 2 is not larger than string 1) 


2. Data: String 1 = 05‘PRINT” (05 is the length of the string) 
String 2 = 02‘PR’ (02 is the length of the string) 
Result: Zero flag = 0 (strings are not identical) 
Carry flag = 0 (string 2 is not larger than string 1) 


The longer string (string 1) is considered to be larger. To determine 
whether string 2 is an abbreviation of string 1, use Subroutine SC (Find 
the position of a substring). String 2 is an abbreviation if it is part of 
string 1 and starts at the first character. 


3. Data: String 1 = 05‘PRINT” (05 is the length of the string) 
String 2 = 06‘SYSTEM’ (06 is the length of the string) 
Result: Zero flag = 0 (strings are not identical) 
Carry flag = 1 (string 2 is larger than string 1) 


We are assuming here that the strings consist of ASCII characters. 
Note that the initial length byte is a hexadecimal number, not a charac- 
ter. We have represented this byte as two hexadecimal digits in front of 
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the string; the string itself is surrounded by single quotation marks. 

This routine treats spaces like other characters. Assuming ASCII 
strings, the routine will, for example, find that SPRINGMAID is larger 
than SPRING MAID, since an ASCII M (4D,¢) is larger than an ASCII 
space (2046). 

Note that this routine does not order strings alphabetically as defined 
in common uses such as indexes and telephone directories. Instead, it 
uses the ASCII character order shown in Appendix 3. Note, in par- 
ticular, that: 


1. Spaces precede all printing characters. 

2. Periods, commas, and dashes (hyphens) precede numbers. 

3. Numbers precede letters. 

4. Capital letters precede lower-case letters. 

This ordering produces such non-standard results as the following: 


1. 9TH AVENUE SCHOOL comes before CAPITAL CITY 
SCHOOL (or, in fact, any string starting with a letter). 9TH AVENUE 
is not treated as if it started with the letter N. 


2. EZ8 Motel comes before East Street Motel since a capital Z pre- 
cedes a lower-case a. 


3. NEW YORK comes before NEWARK or NEWCASTLE since a 
space precedes any letter. 





Registers used BX, CX, DI, DX, F (clears D flag), SI 


Execution time 


1. Ifthe strings are not identical through the length of the shorter one, 
the execution time is approximately 


124 + 24 X NUMBER OF CHARACTERS COMPARED 


If, for example, the routine compares five characters before finding a 
disparity, the execution time is approximately 


124 + 24 x 5 = 124 + 120 = 244 cycles 


2. If the strings are identical through the length of the shorter one, the 
execution time is approximately 
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115 + 24 x LENGTH OF SHORTER STRING 
If, for example, the shorter string is 8 bytes long, the execution time is 
115 + 24 x 8 = 115 + 192 = 307 cycles 


Program size 25 bytes 


Data memory required None 


Special case If cither string (but not both) has a 0 length, the pro- 
gram returns with the flags set as though the other string were larger. If 
both strings have 0 length, they are considered to be equal. 





; Title String Compare 

; Name: STRCMP 

’ 

; Purpose: | Compare 2 strings and return C and Z flags set 
; or cleared. 

a 

; Entry: TOP OF STACK 

; Low byte of return address 

; High byte of return address 

; Low byte of string 2 address 

; High byte of string 2 address 

; Low byte of string 1 address 

; High byte of string 1 address 

A 

; Each string consists of a length byte 

; followed by a maximum of 255 characters. 
a 

; Exit: IF string 1 = string 2 THEN 

a Z=1,C=0 

; IF string 1 > string 2 THEN 

; z=0,C=0 

; IF string 1 < string 2 THEN 

; zZ=0,C=1 

a 

; Registers Used: BX,CX,DI,DX,F (clears D flag),SI 

; Time: 124 cycles overhead plus 24 cycles per byte 
; minus 9 cycles if the strings are identical 
; ‘through the length of the shorter one. 

s 

; Size: Program 25 bytes 

aw 

STRCMP: 
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, 
7REMOVE PARAMETERS FROM STACK 


POP DX 7 SAVE RETURN ADDRESS 
POP DI 7GET BASE ADDRESS OF STRING 2 
POP SI 7GET BASE ADDRESS OF STRING 1 


, 
7DETERMINE WHICH STRING IS SHORTER 
;LENGTH OF SHORTER = NUMBER OF BYTES TO COMPARE 


MOV BH,CSI] 7GET LENGTH OF STRING 1 

MOV BL,CDI] 7GET LENGTH OF STRING 2 

MOV CL,BH 7SAVE LENGTH OF STRING 1 AS BYTE COUNT 
CLD 7 SELECT AUTOINCREMENTING 

CMPSB 7COMPARE STRING LENGTHS 


7THIS ALSO INCREMENTS BOTH POINTERS 

7 SO THEY POINT TO FIRST ACTUAL 

7 CHARACTERS IN STRINGS 
JBE BEGCMP 7BRANCH IF STRING 1 IS SHORTER THAN 

7 STRING 2 OR THE SAME LENGTH 

7ITS LENGTH IS NUMBER OF BYTES TO COMPARE 
MOV CL,BL 7OTHERWISE, STRING 2 IS SHORTER 

7ITS LENGTH IS NUMBER OF BYTES TO COMPARE 


7 
7COMPARE STRINGS THROUGH LENGTH OF SHORTER 
zEXIT AS SOON AS CORRESPONDING CHARACTERS DIFFER 


BEGCMP: 

SUB CH,CH 7EXTEND LENGTH TO 16 BITS 
7SET ZERO FLAG IN CASE SHORTER STRING 
7 HAS ZERO LENGTH 

REPE CMPSB 7COMPARE CHARACTERS ONE AT A TIME UNTIL 

7 UNEQUAL CHARACTERS FOUND OR SHORTER 
7 STRING EXHAUSTED 

JNE EXITSC 7BRANCH IF EXIT OCCURRED BECAUSE OF 
, UNEQUAL CHARACTERS 
7 @<,C WILL BE PROPERLY SET OR CLEARED 
7FALL THROUGH IF EXIT OCCURRED BECAUSE 
7 ALL CHARACTERS WERE COMPARED 
7NOTE: LENGTH OF SHORTER STRING COULD 
7 BE ZERO IN WHICH CASE NO COMPARISON 
7 IS DONE AND ZERO FLAG IS 1 BECAUSE 
7 OF SUB CH,CH 


7STRINGS SAME THROUGH LENGTH OF SHORTER 
750 USE LENGTHS TO SET FLAGS 


a 
CMP BH, BL 7COMPARE STRING LENGTHS 
7EXIT TO RETURN ADDRESS 
EXITSC: 
JMP DX 7EXIT TO RETURN ADDRESS 


SAMPLE EXECUTION: 
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MOV 
PUSH 
MOV 
PUSH 
CALL 


JMP 
TEST DATA 
DB 
DB 
DB 
DB 


END 


BX,OFFSET S1 ;GET BASE ADDRESS OF STRING 1 
BX 
BX,OFFSET S2 ;GET BASE ADDRESS OF STRING 2 
BX 


STRCMP 7 COMPARE STRINGS 
;COMPARING "STRING 1" AND "STRING 2" 
3 RESULTS IN STRING 1 LESS THAN 
3 STRING 2, SO Z=0,C=1 

SC5A ;LOOP THROUGH TEST 


20H ;LENGTH OF STRING 1 IN BYTES 
"STRING 1 ' 
20H ; LENGTH OF STRING 2 IN BYTES 
"STRING 2 ' 
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5B String concatenation 
(CONCAT) 


Combines (concatenates) two strings, placing the second immediately 
after the first in memory. If the concatenation would produce a string 
longer than a specified maximum, the program concatenates only 
enough of string 2 to give the combined string its maximum length. The 
Carry flag is cleared if all of string 2 can be concatenated. It is set to 1 if 
part of string 2 must be dropped. Each string consists of at most 256 
bytes, including an initial byte containing the length. The strings are 
thus Pascal-style, rather than C language-style with a terminating 
character. 


Procedure The program uses the length of string 1 to determine 
where to start adding characters, and the length of string 2 to determine 
how many characters to add. If the sum of the lengths exceeds the 
maximum, the program indicates an overflow. It then reduces the 
number of characters it must add to the maximum length minus the 
length of string 1. Finally, it moves the characters from string 2 to the 

— end of string 1, updates the length of string 1, and sets the Carry flag to 
indicate whether characters were discarded. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of maximum length of string 1 
High byte of maximum length of string 1 (always 0) 


Low byte of base address of string 2 
High byte of base address of string 2 


Low byte of base address of string 1 
High byte of base address of string 1 


Exit conditions 


String 2 concatenated at the end of string 1 and the length of string 1 
increased accordingly. If the combined string would exceed the 
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maximum length, only the part of string 2 that would give string 1 its 
maximum length is concatenated. If any part of string 2 must be 
dropped, the Carry flag is set to 1. Otherwise, the Carry flag is cleared. 


Examples 


1. Data: Maximum length of string 1 = OEj6 = 1440 
String 1 = 07‘JOHNSON’ (07 is the length of the string) 
String 2 = 05‘, DON’ (05 is the length of the string) 
Result: String 1 = OC‘JOHNSON, DON’ (0Ci¢ = 1210 is the 
length of the combined string with string 2 placed after 
string 1) 
Carry = 0, since no characters were dropped 


2. Data: String 1 = 07‘JOHNSON’ (07 is the length of the string) 
String 2 = 09‘, RICHARD? (09 is the length of the string) 
Result: String 1 = OE‘JOHNSON, RICHA’ (OEi¢ = 1410 is the 
maximum length allowed, so the last two characters of 
string 2 have been dropped) 
Carry = 1, since characters had to be dropped 


Note that we are representing the initial byte (containing the string’s 
length) as two hexadecimal digits in both examples. 


Registers used AX, BX, CX, DI, DX, F (clears D flag), SI 


Execution time Approximately 


20 x NUMBER OF CHARACTERS CONCATENATED plus 
185 cycles overhead 


NUMBER OF CHARACTERS CONCATENATED is usually the 
length of string 2, but will be the maximum length of string 1 minus its 
current length if the combined string would be too long. If, for example, 
NUMBER OF CHARACTERS CONCATENATED is 1416 (2010), the 
execution time is 


20 X 20 + 185 = 400 + 185 = 585 cycles 


The overhead is an extra 37 cycles if the string must be truncated. 


we “Ws Noe Neo 
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Program size 53 bytes 
Data memory required None 


Special cases 


1. If the concatenation would make the string exceed its specified 
maximum length, the program concatenates only enough of string 2 to 
reach the maximum. If any of string 2 must be truncated, the Carry flag 
is set to 1. 


2. If string 2 has a length of 0, the program exits with the Carry flag 
cleared (no errors) and string 1 unchanged. That is, a length of 0 for 
either string is interpreted as 0, not as 256. 


3. If the original length of string 1 exceeds the specified maximum, the 
program exits with the Carry flag set to 1 (indicating an error) and string 
1 unchanged. 





Title String Concatenation 

Name: CONCAT 

Purpose: Concatenate 2 strings into one string. 
Entry: TOP OF STACK 


Low byte of return address 

High byte of return address 

Low byte of maximum Length of string 1 

High byte of maximum Length of string 1 
(always 0) 

Low byte of string 2 address 

High byte of string 2 address 

Low byte of string 1 address 

High byte of string 1 address 


Each string consists of a length byte 
followed by a maximum of 255 characters. 


Exit: String 1 := string 1 concatenated with string 2 
If no errors then 
Carry := 0 
else 
begin 
Carry := 1 


if the concatenation makes string 1 too 
long, concatenate only the part of string 2 
that results in string 1 having its maximum 
Length 
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if length(string1) > maximum length then 


7 

; no concatenation is done 

7 end 

7 

; Registers Used: AX,BX,CX,DI,DX,F (clears D flag),SI 
, 

; Time: Approximately 20 X (length of string 2) cycles 
; plus 185 cycles overhead 

7 

; Size: Program 53 bytes 

7 

CONCAT: 


? 
7REMOVE PARAMETERS FROM STACK 
7SET MARKER TO INDICATE NO TRUNCATION NECESSARY 


a 

POP DX : 7 SAVE RETURN ADDRESS 

POP AX 7GET MAXIMUM LENGTH OF STRING 1 
POP SI 7GET BASE ADDRESS OF STRING 2 

POP OI 7GET BASE ADDRESS OF STRING 1 
PUSH DX 7PUT RETURN ADDRESS BACK IN STACK 
MOV DX ,AX 7 SAVE MAXIMUM LENGTH OF STRING 1 


SUB AX ,AX 7 INDICATE NO TRUNCATION NECESSARY 


a 
7GET STRING LENGTHS AND EXTEND THEM TO 16 BITS 
7NO CONCATENATION NECESSARY IF STRING 2 HAS ZERO LENGTH 


a 

MOV BL,CDI] 7GET LENGTH OF STRING 1 

SUB BH,BH 7EXTEND LENGTH TO 16 BITS 

MOV CL,CSI1J 7GET LENGTH OF STRING 2 

SUB CH,CH 7 EXTEND LENGTH TO 16 BITS 

JCXZ SETTRN ;BRANCH CEXIT) IF STRING 2 HAS ZERO 


7 LENGTH - NO ERROR IN THIS CASE 


a 

,DETERMINE HOW MANY CHARACTERS TO CONCATENATE 

7;THIS IS LENGTH OF STRING 2 IF COMBINED STRING WOULD 

7 NOT EXCEED MAXIMUM LENGTH 

7OTHERWISE, IT IS THE NUMBER THAT WOULD BRING COMBINED 

7 STRING TO ITS MAXIMUM LENGTH - THAT IS, MAXIMUM LENGTH 
7 MINUS LENGTH OF STRING 1 


a 
PUSH CX 7 SAVE STRING 2'S LENGTH IN STACK 
ADD CX ,BX 7COMPUTE LENGTH OF COMBINED STRING 
CMP CX ,DX 7COMPARE LENGTH TO MAXIMUM LENGTH 
JBE DOCAT 7BRANCH IF LENGTH DOES NOT EXCEED 
7 MAXIMUM 
INC AX 7 INDICATE TRUNCATION NECESSARY 
MOV CX ,DX 7LIMIT COMBINED STRING TO MAXIMUM 
7 LENGTH 
SUB DX ,BX 7COMPUTE MAXIMUM LENGTH MINUS LENGTH 
7 OF STRING 1 
JAE RPLEN ;BRANCH IF STRING 1 IS NOT ALREADY 
7 LONGER THAN ITS MAXIMUM LENGTH 
SUB DX ,DX 7NUMBER OF CHARACTERS TO CONCATENATE 


7 IS ZERO SINCE STRING IS TOO LONG 
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RPLEN: INC SP 7REMOVE STRING 2'S LENGTH FROM STACK 
INC SP 
PUSH DX 7REPLACE IT WITH MAXIMUM LENGTH 
7, MINUS LENGTH OF STRING 1 
a 
7CONCATENATE STRINGS BY MOVING CHARACTERS FROM STRING 2 
7 TO THE AREA FOLLOWING STRING 1 
7END OF STRING 1 = BASE 1 + LENGTH 1 + 1, WHERE THE EXTRA 1 
>; IS FOR THE LENGTH BYTE 
7NEW CHARACTERS COME FROM STRING 2, STARTING AT BASE2+1 
; CSKIPPING OVER LENGTH BYTE) 
DOCAT: 
MOV CDIJ,CL 7SET LENGTH OF COMBINED STRING 
POP CX 7GET NUMBER OF CHARACTERS TO 
7 CONCATENATE 
JCXZ SETTRN 7BRANCH CEXIT) IF NO BYTES TO 
7; CONCATENATE 
ADD DI ,BX 7POINT TO LAST BYTE OF STRING 1 
INC DI 7POINT BEYOND LAST BYTE OF STRING 1 
7, THIS IS WHERE ADDITION BEGINS 
INC SI 7POINT TO FIRST CHARACTER IN STRING 2 
CLD 7, SELECT AUTOINCREMENTING 
REP MOVSB 7, CONCATENATE STRINGS 
7EXIT, SETTING CARRY FROM TRUNCATION INDICATOR 
7CARRY = 1 IF CHARACTERS HAD TO BE TRUNCATED, O OTHERWISE 
oa 
SETTRN: 
SHR AX, 1 7CARRY = 1 IF TRUNCATION, O IF NOT 
RET 7EXIT TO RETURN ADDRESS 
, 
; SAMPLE EXECUTION: 
; 
SC5B: 
MOV BX,OFFSET S$1 7GET BASE ADDRESS OF STRING 1 
PUSH BX 
MOV BX,OFFSET S2 7GET BASE ADDRESS OF STRING 2 
PUSH BX 
MOV AX,20H 7GET MAXIMUM LENGTH OF STRING 1 
PUSH AX 
CALL CONCAT 7CONCATENATE STRINGS 
7RESULT OF CONCATENATING 
7; "LASTNAME" AND ", FIRSTNAME" 
7, IS $1 = 13H,"LASTNAME, FIRSTNAME" 
JMP S$C5B 7;LOOP THROUGH TEST 
a 
7;TEST DATA 
av 
$1 DB 8 7; LENGTH OF $1 IN BYTES 
DB "LASTNAME '" 332 BYTES 
$2 DB OBH 7LENGTH OF S2 IN BYTES 
DB ', FIRSTNAME ' 332 BYTES 


END 
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5C_ Find the position of a substring 
(POS) 


Searches for the first occurrence of a substring within a string. Returns 
the index at which the substring starts if it is found and 0 otherwise. The 
string and the substring each consist of at most 256 bytes, including an 
initial byte containing the length. Thus, if the substring is found, its 
starting index cannot be less than 1 or more than 255. These are 
Pascal-style strings with a length byte, rather than C language-style 
strings with a terminating character. 


Procedure The program moves through the string searching for the 
substring. It continues until it finds a match or until the remaining part 
of the string is shorter than the substring and hence cannot possibly 
contain it. If the substring does not appear in the string, the program 
clears register AL; otherwise, the program places the substring’s start- 
ing index in register AL. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of base address of substring 
High byte of base address of substring 


Low byte of base address of string 
High byte of base address of string 


Exit conditions 


Register AL contains index at which first occurrence of substring starts 
if it is found; register AL contains 0 if substring is not found. 





Examples 


1. Data: String = 1D‘ENTER SPEED IN MILES PER HOUR’ 
(1D16 = 2940 is the length of the string) 
Substring = 05‘MILES’ (05 is the length of the substring) 
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Result: Register AL contains 1016 (1619), the index at which the 
substring ‘MILES’ starts. 


2. Data: String = 1B‘SALES FIGURES FOR JUNE 1989’ (1Bi¢6 
= 2719 is the length of the string) 
Substring = 04‘JUNE’ (04 is the length of the substring) 
Result: Register AL contains 1316 (1919), the index at which the 
substring JUNE’ starts 


3. Data: String = 10°LET Y1 = X1 + R7’ (1016 = 1640 is the length 
of the string) 
Substring = 02‘R4 (02 is the length of the substring) 
Result: Register AL contains 0, since the substring ‘R4’ does not 
appear in the string LET Y1 = X1 + R7. 


4. Data: String = 07“RESTORE’ (07 is the length of the string) 
Substring = 03‘RES’ (03 is the length of the substring) 
Result: Register AL contains 1, the index at which the substring 
‘RES’ starts. An index of 1 indicates that the substring 
could be an abbreviation of the string. Interactive pro- 
grams, such as BASIC interpreters and word processors, 
often use abbreviations to save on typing and storage. 


Registers used AX, BX, CX, DI, DX, F (clears D flag), SI 


Execution time Data-dependent, but the overhead is approximately 
147 cycles, each successful match of 1 character takes 24 cycles, and 
each unsuccessful match of 1 character takes 70 cycles. The worst case is 
when the string and substring always match except for the last character 
in the substring, such as 


String = ‘AAAAAAAAB’ 
Substring = ‘AAB’ 


The execution time in that case is 


(STRING LENGTH — SUBSTRING LENGTH + 1) x (24 x 
(SUBSTRING LENGTH — 1) + 70) + 147 


If, for example, STRING LENGTH = 9 and SUBSTRING LENGTH 
= 3 (as in the example above), the execution time is 


(9 —3 +1) x (24 x (3-1) + 70) + 147 =7 x 118 + 147 


158 


“ae 


Ne Ne Ne Ne NU el Ne Ue Ne Ne Ne Ns Ns Ne Ne Ne 6 UU OU 


Assembly language subroutines for the 8086 


= 826 + 147 
= 973 cycles 


Program size 62 bytes 


Data memory required None 


Special cases 


1. If either the string or the substring has a length of 0, the program 
exits with 0 in register AL, indicating that it did not find the substring. 


2. If the substring is longer than the string, the program exits with 0 in 
register AL, indicating that it did not find the substring. 


3. Ifthe program returns an index of 1, the substring may be regarded 
as an abbreviation of the string. That is, the substring occurs in the 
string, starting at the first character. A typical example would be a string 
PRINT and a substring PR. 


4. If the substring occurs more than once in the string, the program 
will return only the index to the first occurrence (the one with the 
smallest starting index). 


Title Find the Position of a Substring 
Name: POS 
Purpose: Search for the first occurrence of a substring 


in a string and return its starting index. 
If the substring is not found, a 0 is returned. 


Entry: TOP OF STACK 


Low byte of return address 
High byte of return address 
Low byte of substring address 
High byte of substring address 
Low byte of string address 
High byte of string address 


Each string consists of a length byte 
followed by a maximum of 255 characters. 


Exit: If the substring is found then 


Register AL = its starting index 
else 
Register AL = 0 
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Registers Used: 


Time: 


Size: 


AX,BX,CX,DI,DX,F (clears D flag),SI 


Since the algorithm is so data dependent 
a simple formula is impossible but the 
following statements are true and a 
worst case is given below: 


147 cycles overhead. 
Each match of 1 character takes 24 cycles 
A mismatch takes 70 cycles 


Worst case timing occurs when the 
string and substring always match 
except for the last character of the 
substring, such as: 

string = 'AAAAAAAAAB' 

substring = 'AAB' 


Program 62 bytes. 


, 
;OBTAIN PARAMETERS FROM STACK 


a 

POP DX 
POP SI 
POP DI 
PUSH DX 


;SAVE RETURN ADDRESS 

;GET BASE ADDRESS OF SUBSTRING 
;GET BASE ADDRESS OF STRING 

;PUT RETURN ADDRESS BACK IN STACK 


sEXIT, INDICATING SUBSTRING NOT FOUND, IF STRING OR SUBSTRING 
3 HAS ZERO LENGTH OR IF SUBSTRING IS LONGER THAN STRING 


SUB AX ,AX 7 INDICATE SUBSTRING NOT FOUND 

MOV DL,CDII 7GET STRING LENGTH 

TEST DL,DL 7;TEST STRING LENGTH 

JZ EXITPO ;BRANCH CEXIT) IF STRING LENGTH IS ZERO 

MOV DH,CSI] 7;GET SUBSTRING LENGTH 

TEST DH,DH 7;TEST SUBSTRING LENGTH 

JZ EXITPO ;BRANCH CEXIT) IF SUBSTRING LENGTH IS ZERO 

SUB DL,DH ;COMPARE STRING LENGTH, SUBSTRING LENGTH 

JB EXITPO ;BRANCH CEXIT) IF SUBSTRING IS LONGER THAN 
7 STRING 


’ 
;SET UP PARAMETERS FOR SEARCH 


7 

MOV AH,DH ;SAVE SUBSTRING LENGTH 

SUB DH,DH 3 EXTEND DIFFERENCE TO 16 BITS 

INC DX ;LENGTH OF PART THAT MUST BE EXAMINED IS 


3 STRING LENGTH - SUBSTRING LENGTH + 1 
7 REMAINDER IS TOO SHORT TO CONTAIN 
7 SUBSTRING 


MOV AL,DL ;SAVE LENGTH OF PART THAT MUST BE 
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CMPPOS: 


REPE 


NOTFND: 


REMTMP: 
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7 EXAMINED 
INC SI 7SAVE ADDRESS OF FIRST CHARACTER IN 
PUSH SI 7 SUBSTRING 
MOV BX,DI 7CURRENT STARTING POSITION IN STRING IS 
, INITIALLY IN LENGTH BYTE 


CLD 7SELECT AUTOINCREMENTING 


a 
,SEARCH FOR SUBSTRING IN STRING 
7START SEARCH AT BASE OF STRING 
,CONTINUE UNTIL REMAINING STRING SHORTER THAN SUBSTRING 


7 


INC BX ;MOVE CURRENT STARTING POSITION IN STRING 
, UP ONE CHARACTER 
7THIS STARTS FIRST ITERATION AT FIRST 
, CHARACTER IN STRING 


MOV DI,BX 7GET CURRENT STARTING POSITION IN STRING 
POP SI 7GET ADDRESS OF FIRST CHARACTER IN 
7 SUBSTRING 
PUSH SI 7SAVE ADDRESS OF FIRST CHARACTER IN 
7 SUBSTRING 
MOV CL,AH ,GET SUBSTRING LENGTH 


SUB CH,CH 7EXTEND SUBSTRING LENGTH TO 16 BITS 


7COMPARE BYTES OF SUBSTRING WITH BYTES OF STRING, 
7 STARTING AT CURRENT POSITION IN STRING 


; 

CMPSB sCOMPARE BYTES UNTIL DONE WITH SUBSTRING 
7 OR UNEQUAL CHARACTERS FOUND 

JNE NOTFND 7BRANCH IF UNEQUAL CHARACTERS FOUND - 


7 SUBSTRING NOT FOUND 


, 

;SUBSTRING FOUND - CALCULATE INDEX AT WHICH IT STARTS IN 
7 STRING (LENGTH OF PART THAT MUST BE EXAMINED - NUMBER 
7 OF COMPARISONS REMAINING + 1) 


a 

SUB AL,DL ;LENGTH OF PART THAT MUST BE EXAMINED 
7 — NUMBER OF COMPARISONS REMAINING 

SUB AH,AH 7EXTEND DIFFERENCE TO 16 BITS 

INC AX 7ADD 1 SINCE INDEXES BEGIN AT 1 

JMP REMTMP 7EXIT, REMOVING SUBSTRING STARTING 


, ADDRESS FROM STACK 


sARRIVE HERE IF SUBSTRING NOT FOUND 
>COUNT NUMBER OF COMPARISONS 


a 


DEC DX 7 SEARCH THROUGH SECTION OF STRING 
JNZ CMPPOS 7 THAT COULD CONTAIN SUBSTRING 
SUB AX,AX ,SUBSTRING NOT FOUND AT ALL - MAKE 


> STARTING INDEX ZERO 


, 
7REMOVE TEMPORARY STORAGE AND EXIT 


EXITPO: 


SC5C: 


7 
STG 


SSTG 
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POP 
RET 


SI ;REMOVE TEMPORARY FROM STACK 
;EXIT TO RETURN ADDRESS 


SAMPLE EXECUTION: 


MOV 
PUSH 
MOV 
PUSH 
CALL 


JMP 
TEST DATA 
DB 
DB 
DB 
DB 


END 


BX,OFFSET STG 7GET BASE ADDRESS OF STRING 
BX 
BX,OFFSET SSTG ;GET BASE ADDRESS OF SUBSTRING 
BX 
POS 7FIND POSITION OF SUBSTRING 
3 SEARCHING "AAAAAAAAAB" FOR "AAB" 
; RESULTS IN REGISTER A=8 


$c5c ; LOOP THROUGH TEST 

OAH ;LENGTH OF STRING 

"AAAAAAAAAB ' 332 BYTE MAX 
3 ; LENGTH OF SUBSTRING 

"AAB ' 732 BYTE MAX 
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5D Copy a substring from a string 
(COPY) 





Copies a substring from a string, given a starting index and the number 
of bytes to copy. Each string consists of at most 256 bytes, including an 
initial byte containing the length. If the starting index of the substring is 
0 (i.e. the substring would start in the length byte) or is beyond the end 
of the string, the substring is given a length of 0 and the Carry flag is set 
to 1. If the substring would exceed its maximum length or would extend 
beyond the end of the string, then only the maximum number or the 
available number of characters (up to the end of the string) are placed in 
the substring, and the Carry flag is set to 1. If the substring can be 
formed as specified, the Carry flag is cleared. The strings are Pascal- 
style with a length byte, rather than C language-style with a terminating 
character. 


Procedure The program exits immediately if the number of bytes to 
copy, the maximum length of the substring, or the starting index is 0. It 
also exits immediately if the starting index exceeds the length of the 
string. If none of these conditions holds, the program checks whether 
the number of bytes to copy exceeds either the maximum length of the 
substring or the number of characters available in the string. If either is 
exceeded, the program reduces the number of bytes to copy accord- 
ingly. It then copies the bytes from the string to the substring. The 
program clears the Carry flag if the substring can be formed as specified 
and sets the Carry flag if it cannot. 





Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Number of bytes to copy 
Starting index to copy from 


Low byte of base address of substring 
High byte of base address of substring 


Low byte of base address of string 
High byte of base address of string 
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Low byte of maximum length of substring 
High byte of maximum length of substring (always 0) 


Exit conditions 


Substring contains characters copied from string. If the starting index is 
Q, the maximum length of the substring is 0, or the starting index is 
beyond the length of the string, the substring will have a length of 0 and 
the Carry flag will be set to 1. If the substring would extend beyond the 
end of the string or would exceed its specified maximum length, only the 
available characters from the string (up to the maximum length of the 
substring) are copied into the substring; the Carry flag is set in this case 
also. If no problems occur in forming the substring, the Carry flag is 
cleared. 


Examples 


1. Data: String = 10°LET Y1 = R7 + X4 (1016 = 1640 is the length 
of the string) 
Maximum length of substring = 2 
Number of bytes to copy = 2 
Starting index = 5 

Result: Substring = 02°Y1’ (2 is the length of the substring) 

We have copied 2 bytes from the string starting at charac- 
ter #5 (that is, characters 5 and 6) 
Carry = 0, since no problems occur in forming the sub- 
string 


2. Data: String = 0E‘8657 POWELL ST’ 

(OEi6 = 144 is the length of the string) 
Maximum length of substring = 1016 = 164 
Number of bytes to copy = 0D16 = 1310 
Starting index = 06 

Result: Substring = 09‘POWELL ST’ (09 is the length of the 
substring) 
Carry = 1, since there were not enough characters avail- 
able in the string to provide the specified number of bytes 
to copy. 


3. Data: String = 169414 HEGENBERGER DRIVE’ (1616 = 
2210 is the length of the string) 
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Maximum length of substring = 1016 = 1640 
Number of bytes to copy = 1146 = 1740 
Starting index = 06 

Result: Substring = 10SHEGENBERGER DRIV’ (1016 = 16j0 is 
the length of the substring) 
Carry = 1, since the number of bytes to copy exceeded the 
maximum length of the substring 


Registers used AX, BX, CX, DI, DX, F (clears D flag), SI 


Execution time Approximately 
20 x NUMBER OF BYTES COPIED plus 196 cycles overhead 


NUMBER OF BYTES COPIED is the number specified if no problems 
occur, or the number available or the maximum length of the substring 
if copying would extend beyond either the string or the substring. If, for 
example, NUMBER OF BYTES COPIED = 1219 (0Ci¢), the execution 
time is 


20 X 12 + 196 = 240 + 196 = 436 cycles. 
Program size 75 bytes 
Data memory required None 


Special Cases 


1. If the number of bytes to copy is 0, the program assigns the sub- 
string a length of 0 and clears the Carry flag, indicating no error. 


2. Ifthe maximum length of the substring is 0, the program assigns the 
substring a length of 0 and sets the Carry flag to 1, indicating an error. 


3. If the starting index of the substring is 0, the program assigns the 
substring a length of 0 and sets the Carry flag to 1, indicating an error. 


4. Ifthe source string does not even reach the specified starting index, 
the program assigns the substring a length of 0 and sets the Carry flag to 
1, indicating an error. 
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5. If the substring would extend beyond the end of the source string, 
the program places all the available characters in the substring and sets 
the Carry flag to 1, indicating an error. The available characters are the 
ones from the starting index to the end of the string. 


6. If the substring would exceed its specified maximum length, the 
program places only the specified maximum number of characters in the 
substring. It sets the Carry flag to 1, indicating an error. 





Title Copy a Substring from a String 
Name: COPY 
Purpose: Copy a substring from a string given a starting 


index and the number of bytes. 


Entry: TOP OF STACK 


Low byte of return address 

High byte of return address 

Number of bytes to copy 

Starting index to copy from 

Low byte of destination string address 

High byte of destination string address 

Low byte of source string address 

High byte of source string address 

Low byte of maximum length of destination string 

High byte of maximum Length of destination string 
(always 0) 


Each string consists of a Length byte 
followed by a maximum of 255 characters. 


Exit: Destination string := The substring from the 


string. 
If no errors then 
Carry := 0 
else 
begin 
the following conditions cause an 
error and the Carry flag = 1. 
if Cindex = 0) or (maxlen = 0) or 
Cindex > Length(source)) then 
the destination string will have a zero 
Length. 
if Cindex + count - 1) > length(source)) 
then 
the destination string becomes everything 
from index to the end of source string. 
end 


Registers Used: AX,BX,CX,DI,DX,F (clears D flag),SI 


Time: Approximately (20 X count) cycles plus 
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196 cycles overhead 


Size: Program 75 bytes 


Noe Ws Us We Vs 


COPY: 


7OBTAIN PARAMETERS FROM STACK 


a 

POP DX 7 SAVE RETURN ADDRESS 

POP BX 7GET NUMBER OF BYTES TO COPY, STARTING 
7 INDEX 

POP DI 7GET BASE ADDRESS OF SUBSTRING 

POP SI 7GET BASE ADDRESS OF SOURCE STRING 

POP AX 7GET MAXIMUM LENGTH OF SUBSTRING 

PUSH DX 7PUT RETURN ADDRESS BACK IN STACK 


; 

z;EXIT IF ZERO BYTES TO COPY, ZERO MAXIMUM SUBSTRING 
7 LENGTH, OR ZERO STARTING INDEX 

7LENGTH OF SUBSTRING IS ZERO IN ALL CASES 


a 

MOV BYTE PTR CDI],0 ;LENGTH OF SUBSTRING = 0 

TEST BL,BL 7CHECK NUMBER OF BYTES TO COPY 

JZ OKEXIT 7BRANCH IF ZERO BYTES TO COPY, NO ERROR 


, SUBSTRING WILL JUST HAVE ZERO LENGTH 
7 TEST CLEARS CARRY 


TEST AX ,AX 7CHECK MAXIMUM LENGTH OF SUBSTRING 

JZ EREXIT 7TAKE ERROR EXIT IF SUBSTRING HAS ZERO 
7 MAXIMUM LENGTH 

TEST BH,BH 7CHECK STARTING INDEX 

JZ EREXIT 7 TAKE ERROR EXIT IF STARTING INDEX IS 


; ZERO (LENGTH BYTE) 


; 
7CHECK IF SOURCE STRING REACHES STARTING INDEX 
7TAKE ERROR EXIT IF IT DOESN'T 


a 

MOV DX ,AX 7 SAVE MAXIMUM LENGTH OF SUBSTRING 

MOV AH, CSI] 7GET LENGTH OF SOURCE STRING 

CMP BH ,AH 7COMPARE STARTING INDEX TO LENGTH OF 
7 SOURCE STRING 

JA EREXIT 7TAKE ERROR EXIT IF STARTING INDEX IS 


7 BEYOND END OF SOURCE STRING 


a 

7CHECK IF THERE ARE ENOUGH CHARACTERS IN SOURCE STRING 

7 TO SATISFY THE NEED 

7 THERE ARE IF STARTING INDEX + NUMBER OF BYTES TO COPY - 1 
7 IS LESS THAN OR EQUAL TO THE LENGTH OF THE SOURCE 


7 STRING 

, 

SUB AL,AL 7 INDICATE NO TRUNCATION NEEDED 
MOV CL,BL 7COUNT = NUMBER OF BYTES TO COPY 
SUB CH,CH 7EXTEND COUNT TO 16 BITS 


ADD BL,BH 7ADD COUNT TO STARTING INDEX 
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Jc REDLEN ;BRANCH IF SUM IS GREATER THAN 255 

DEC BL ;CALCULATE INDEX OF LAST BYTE IN AREA 
7 SPECIFIED FOR COPYING 

CMP BL,AH ;COMPARE TO LENGTH OF SOURCE STRING 

JB CHKMAX ;BRANCH IF SOURCE STRING IS LONGER 


a 

;CALLER ASKED FOR TOO MANY CHARACTERS 

7 JUST RETURN EVERYTHING BETWEEN STARTING INDEX AND THE END OF 
7 THE SOURCE STRING 

;COUNT := LENGTHC(CSSTRG) - STARTING INDEX + 1 

z INDICATE TRUNCATION OF COUNT 


a 


REDLEN: 
MOV CL,AH 7GET LENGTH OF SOURCE STRING 
SUB CL,BH ;COUNT = LENGTH - STARTING INDEX + 1 
INC Cx 
NOT AL 7 INDICATE TRUNCATION OF COUNT BY 
7 SETTING MARKER TO FF 
a 
;DETERMINE IF THERE IS ENOUGH ROOM IN THE SUBSTRING 
;CHECK IF COUNT IS LESS THAN OR EQUAL TO MAXIMUM LENGTH 
> OF DESTINATION STRING. IF NOT, SET COUNT TO 
7; MAXIMUM LENGTH 
3;1F COUNT > MAXLEN THEN COUNT := MAXLEN 
, 
CHKMAX: 
CMP CL,DL ;COMPARE COUNT TO MAXIMUM SUBSTRING LENGTH 
JBE MOVSTR ;BRANCH (NO PROBLEM) IF COUNT IS LESS 
; THAN OR EQUAL TO MAXIMUM 
MOV CL,DL OTHERWISE, REPLACE COUNT WITH MAXIMUM 
7 
7;SET LENGTH OF DESTINATION STRING 
;SOURCE POINTER = BASE ADDRESS OF SOURCE STRING + STARTING 
7 INDEX 
;DESTINATION POINTER = BASE ADDRESS OF SUBSTRING + 1 (TO 
7 ACCOUNT FOR LENGTH BYTE 
, 
MOVSTR: 
MOV Cd1I9,CL ;LENGTH OF DESTINATION STRING = COUNT 
INC DI ;POINT TO FIRST ACTUAL CHARACTER IN 
; DESTINATION STRING 
MOV DL,BH ;EXTEND STARTING INDEX TO 16 BITS 
SUB DH,DH 
ADD S1,DX ;POINT TO FIRST CHARACTER IN AREA TO 
; BE COPIED FROM SOURCE STRING 
a 
;MOVE SUBSTRING FROM COPY AREA TO DESTINATION STRING 
7 
CLD ;SELECT AUTOINCREMENTING 
REP MOVSB 7MOVE SUBSTRING TO DESTINATION 
SHR AL,1 7;MAKE CARRY INDICATE WHETHER REQUEST WAS 


3 FULLY SATISFIED (1 IF IT WAS, O IF NOT) 
OKEXIT: RET 


a 
;ERROR EXIT - SET CARRY TO 1 


s 
7 
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EREXIT: STC 7 SET CARRY, ERROR EXIT 
RET 


SAMPLE EXECUTION: 


SC5D: 
MOV AX, (MXLENJ 7GET MAXIMUM LENGTH OF SUBSTRING 
PUSH AX 
MOV BX,OFFSET SSTG ;GET BASE ADDRESS OF SOURCE STRING 
PUSH BX 
MOV BX,OFFSET DSTG ;GET BASE ADDRESS OF DEST. STRING 
PUSH BX 
MOV AL,CCNTJ 7GET NUMBER OF CHARACTERS TO COPY 
MOV AH, CIDX] 7GET STARTING INDEX FOR COPYING 
PUSH AX 
CALL COPY 7COPY SUBSTRING 


7COPYING 3 CHARACTERS STARTING AT INDEX 4 
7 FROM '12.345E+10' GIVES '345' 
7NOTE THAT VALID INDEXES START AT 1, 


; NOT O 

JMP $C5D 7LOOP THROUGH TEST 
, 
7DATA SECTION 
a 
IDX DB 4 7 STARTING INDEX FOR COPYING 
CNT DB 3 7NUMBER OF CHARACTERS TO COPY 
MXLEN DW 20H 7MAXIMUM LENGTH OF DESTINATION STRING 
SSTG DB OAH 7 LENGTH OF STRING 

DB "12.345E+10 ' 332 BYTE MAX 
DSTG DB 0 7LENGTH OF SUBSTRING 

DB ' | ' 332 BYTE MAX 


END 
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5E Delete a substring from a string 
(DELETE) 


Deletes a substring from a string, given a starting index and a length. 
The string consists of at most 256 bytes, including an initial byte con- 
taining the length. The Carry flag is cleared if the deletion can be 
performed as specified. The Carry flag is set if the starting index is 0 or 
beyond the length of the string; the string is left unchanged in either 
case. If the deletion extends beyond the end of the string, the Carry flag 
is set to 1 and only the characters from the starting index to the end of 
the string are deleted. The string is Pascal-style with a length byte, 
rather than C language-style with a terminating character. 


Procedure The program exits immediately if either the starting index 
or the number of bytes to delete is 0. It also exits if the starting index is 
beyond the length of the string. If none of these conditions holds, the 
program checks whether the string extends beyond the area to be 
deleted. If it does not, the program simply truncates the string by setting 
the new length to the starting index minus 1. If it does, the program 
compacts the string by moving the bytes above the deleted area down. 
The program then determines the new string’s length and exits with the 
Carry cleared if the specified number of bytes were deleted, and with 
the Carry set to 1 if any errors occurred. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Number of bytes to delete 
Starting index to delete from 


Low byte of base address of string 
High byte of base address of string 


Exit conditions 


Substring deleted from string. If no errors occur, the Carry flag is 
cleared. If the starting index is 0 or beyond the length of the string, the 
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Carry flag is set and the string is unchanged. If the number of bytes to 
delete would go beyond the end of the string, the Carry flag is set and 
the characters from the starting index to the end of the string are 
deleted. 





Examples 


1. Data: String = 26‘SSALES FOR MARCH AND APRIL OF 
THIS YEAR’ (2636 = 3810 is the length of the string) 
Number of bytes to delete = 0Ai¢ = 104 
Starting index to delete from = 1016 = 1649 

Result: String = 1C‘SALES FOR MARCH OF THIS YEAR’ 

(1Cis = 2819 is the length of the string with 10 bytes 
deleted starting with the 16th character—the deleted 
material is ‘AND APRIL’) 
Carry = 0, since no problems occurred in the deletion. 


2. Data: String = 28°THE PRICE IS $3.00 ($2.00 BEFORE JUNE 
1)’ (2816 = 4010 is the length of the string) 
Number of bytes to delete = 3016 = 4810 
Starting index to delete from = 1336 = 194 

Result: String = 12°THE PRICE IS $3.00’ (1236 = 180 is the 

length of the string with all remaining bytes deleted) 
Carry = 1, since there were not as many bytes left in the 
string as were supposed to be deleted 





Registers used AX, BX, CX, DI, DX, F (clears D flag), SI 


Execution time Approximately 20 x NUMBER OF BYTES 
MOVED DOWN + 155 cycles overhead if the string must be com- 
pacted. This is necessary if the deletion creates a ‘hole’ in the string that 
must be filled. NUMBER OF BYTES MOVED DOWN is equal to 
STRING LENGTH — STARTING INDEX — NUMBER OF BYTES 
TO DELETE. 

125 cycles if the string can simply be truncated (i.e. the deletion 
continues all the way to the end). 
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Examples 


1. STRING LENGTH = 204¢ (3210) 
STARTING INDEX = 1946 (2530) 
NUMBER OF BYTES TO DELETE = 08 
Since there are exactly 8 bytes left in the string starting at index 1946, 
all the routine must do is truncate it (i.e. reduce its length). This takes 
125 cycles. 


2. STRING LENGTH = 4016 (644) 
STARTING INDEX = 1946 (2510) 
NUMBER OF BYTES TO DELETE = 08 
Since there are 2016 (3210) bytes above the truncated area, the routine 
must move them down eight positions to fill the ‘hole.” Thus NUMBER 
OF BYTES MOVED DOWN = 3210 and the execution time is 


20 X 32 + 155 = 640 + 155 = 795 cycles 
Program size 72 bytes 
Data memory required None 


Special cases 


1. If the number of bytes to delete is 0, the program exits with the 
Carry flag cleared (no errors) and the string unchanged. 


2. Ifthe string does not even extend to the specified starting index, the 
program exits with the Carry flag set to 1 (indicating an error) and the 
string unchanged. 


3. Ifthe number of bytes to delete exceeds the number available, the 
program deletes all bytes from the starting index to the end of the string 
and exits with the Carry flag set to 1 (indicating an error). 


Title Delete a Substring from a String 
Name: DELETE 
Purpose: Delete a substring from a string given a 


starting index and a length. 


Entry: TOP OF STACK 
Low byte of return address 
High byte of return address 
Number of bytes to delete (count) 


172 Assembly language subroutines for the 8086 


Starting index to delete from Cindex) 
Low byte of string address 
High byte of string address 


The string consists of a Length byte 
followed by a maximum of 255 characters. 


Exit: Substring deleted. 
If no errors then 
Carry := 0 
else 
begin 
the following conditions cause an 
error with Carry flag = 1. 
if Cindex = 0) or (index > Llength(string)) 
then do not change string 
if count is too large then 
delete only the characters from 
index to end of string 
end 


Registers Used: AX,BX,CX,DI,DX,F (clears D flag),SI 


Time: Approximately 20 X (CLENGTHC(STRG) -INDEX-COUNT+1) 
plus 155 cycles overhead 


$ize: Program 72 bytes 


Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ws Ne Ws We We Noe Ne We Ws We We We We We We We We 


DELETE: 


; | 
OBTAIN PARAMETERS FROM STACK 


a 

POP DX 7SAVE RETURN ADDRESS 

POP BX 7GET NUMBER OF BYTES TO DELETE, 
> STARTING INDEX TO DELETE FROM 

POP SI 7GET BASE ADDRESS OF STRING 


PUSH DX 7PUT RETURN ADDRESS BACK IN STACK 


a 
7EXIT IF COUNT IS ZERO, STARTING INDEX IS ZERO, OR 
> STARTING INDEX IS BEYOND THE END OF THE STRING 


a 

TEST BL,BL 7 TEST NUMBER OF BYTES TO DELETE 

JZ OKEXIT 7BRANCH (GOOD EXIT) IF NOTHING TO DELETE 

TEST BH,BH 7 TEST STARTING INDEX 

JZ EREXIT 7BRANCH CERROR EXIT) IF STARTING INDEX IS 
7 ZERO - THAT IS, IN LENGTH BYTE 

MOV CL,CST] 7GET LENGTH OF STRING 

CMP BH,CL 7CHECK IF STARTING INDEX IS WITHIN STRING 

JA EREXIT 7BRANCH CERROR EXIT) IF STARTING INDEX 


7 IS BEYOND END OF STRING 


7CHECK WHETHER NUMBER OF CHARACTERS REQUESTED TO BE 

7 DELETED ARE PRESENT 

7THEY ARE IF STARTING INDEX + NUMBER OF BYTES TO DELETE - 1 
> IS LESS THAN OR EQUAL TO STRING LENGTH 


TRUNC: 


CNTOK: 
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71F NOT, THEN DELETE ONLY TO END OF STRING 


a 

SUB AL,AL 7 INDICATE NO TRUNCATION NECESSARY 

MOV AH,BL COMPUTE STARTING INDEX + COUNT 

ADD AH,BH 

JC TRUNC ; TRUNCATE IF INDEX + COUNT > 255 

DEC AH 7END OF DELETED AREA IS AT INDEX GIVEN BY 
7 STARTING INDEX + COUNT - 1 

CMP AH,CL 7COMPARE TO LENGTH OF STRING 

JB CNTOK 7BRANCH IF MORE THAN ENOUGH CHARACTERS 

JE TRUNC ; TRUNCATE BUT NO ERROR CEXACTLY ENOUGH 
7 CHARACTERS) 

NOT AL 7 INDICATE ERROR - NOT ENOUGH CHARACTERS 


, 10 DELETE 


, 
7 TRUNCATE THE STRING - NO COMPACTING NECESSARY 
7SIMPLY REDUCE ITS LENGTH TO STARTING INDEX - 1 


av 


DEC BH 7STRING LENGTH = STARTING INDEX - 1 
MOV CS11,BH 7 SET LENGTH BYTE 


a 
7EXIT WITH ERROR INDICATOR IN CARRY 


a 
SHR AL,1 7SET CARRY FROM TRUNCATION INDICATOR 
RET 


7 
7SET LENGTH OF STRING AFTER DELETION 
7THIS IS ORIGINAL LENGTH MINUS NUMBER OF BYTES TO DELETE 


a 


MOV CH,CL 3GET ORIGINAL STRING LENGTH 
SUB CH,BL 7 SUBTRACT NUMBER OF BYTES TO DELETE 


MOV CS1J,CH 7SET LENGTH BYTE 


7SET PARAMETERS FOR COMPACTING THE STRING 

7SOURCE POINTER = FIRST BYTE ABOVE DELETED AREA. THIS IS 
7 BASE ADDRESS OF STRING + STARTING INDEX 

7 + NUMBER OF BYTES TO DELETE + 1 

7DESTINATION POINTER = FIRST BYTE IN DELETED AREA. THIS IS 
7 BASE ADDRESS OF STRING + STARTING INDEX 

7NUMBER OF BYTES TO MOVE = STRING LENGTH - INDEX OF LAST 

7 BYTE IN DELETED AREA 


. 
v7 


MOV DL,BH EXTEND STARTING INDEX TO 16 BITS 

SUB DH,DH 

ADD SI ,DX 7CALCULATE BASE ADDRESS PLUS STARTING 
7, INDEX 

MOV DI,SI 

MOV DL,BL 7EXTEND NUMBER OF BYTES TO DELETE 

ADD S1,DX 7CALCULATE ADDRESS AT END OF DELETED 
7 AREA 

SUB CL,AH ,NUMBER OF CHARACTERS TO MOVE = STRING 


7 LENGTH - INDEX AT END OF AREA 
SUB CH,CH 7EXTEND NUMBER TO 16-BIT COUNT 
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CLD 7 SELECT AUTOINCREMENTING 


a 
7COMPACT STRING BY MOVING ALL CHARACTERS ABOVE THE 
7 DELETED AREA DOWN 


ao 
REP MOVSB 7MOVE CHARACTERS DOWN INTO DELETED 
7 AREA, THUS COMPACTING STRING 


, 
7CLEAR CARRY, INDICATING NO ERRORS 


a 


OKEXIT: 
CLC 7CLEAR CARRY, NO ERRORS 
RET 
a 
7SET CARRY, INDICATING AN ERROR 
, 
EREXIT: 
STC 7SET CARRY, INDICATING ERROR 
RET 
, 
; SAMPLE EXECUTION: 
a 


SC5E: 
MOV BX,OFFSET SSTG 7GET BASE ADDRESS OF STRING 
PUSH BX 
MOV AH,CIDX] ;GET STARTING INDEX FOR DELETION 
MOV AL,CCNT] ;GET NUMBER OF CHARACTERS TO DELETE 
PUSH AX 
CALL DELETE 7,DELETE CHARACTERS 


7DELETING 4 CHARACTERS STARTING AT INDEX 1 
7 FROM “JOE HANDOVER" LEAVES "HANDOVER" 
JMP SC5E 7LOOP THROUGH TEST 


7 
,DATA SECTION 


a 
IDX DB 1 ;STARTING INDEX FOR DELETION 
CNT DB 4 7NUMBER OF CHARACTERS TO DELETE 
SSTG DB 12 7 LENGTH OF STRING IN BYTES 

DB "JOE HANDOVER' ;STRING 


END 


5F Insert a substring into a string (INSERT) 173 


5F Insert a substring into a string 
(INSERT) 





Inserts a substring into a string, given a starting index. The string and 
substring each consist of at most 256 bytes, including an initial byte 
containing the length. The Carry flag is cleared if the insertion can be 
accomplished with no problems. The Carry flag is set if the starting 
index is 0 or beyond the length of the string. In the second case, the 
substring is concatenated to the end of the string. The Carry flag is also 
set if the insertion would make the string exceed a specified maximum 
length; in that case, the program inserts only enough of the substring to 
reach the maximum length. These are Pascal-style strings with a length 
byte, rather than C language-style strings with a terminating character. 


Procedure The program exits immediately if the starting index or the 
length of the substring is 0. If neither is 0, the program checks whether 
the insertion would make the string longer than the specified maximum. 
If it would, the program truncates the substring. The program then 
checks whether the starting index is within the string. If not, the pro- 
gram simply concatenates the substring at the end of the string. If the 
starting index is within the string, the program must make room for the 
insertion by moving the remaining characters up in memory. This move 
must start at the highest address to avoid writing over any data. Finally, 
the program can move the substring into the open area. The program 
then determines the new string length. It exits with the Carry flag set to 
0 if no problems occurred and to 1 if the starting index was 0, the 
substring had to be truncated, or the starting index was beyond the 
length of the string. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of base address 
High byte of return address 


Maximum length of string 
Starting index at which to insert the substring 


Low byte of base address of substring 
High byte of base address of substring 
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Low byte of base address of string 
High byte of base address of string 


Exit conditions 


Substring inserted into string. If no errors occur, the Carry flag is 
cleared. If the starting index or the length of the substring is 0, the Carry 
flag is set and the string is not changed. If the starting index is beyond 
the length of the string, the Carry flag is set and the substring is 
concatenated to the end of the string. If the insertion would make the 
string exceed its specified maximum length, the Carry flag is set and only 
enough of the substring is inserted to reach maximum length. 





Examples 
1. Data: 


Result: 


2. Data: 


Result: 


String = OA‘JOHN SMITH’ (0Ai6 = 10i0 is the length of 
the string) 

Substring = 08‘'WILLIAM ’ (08 is the length of the sub- 
string) 

Maximum length of string = 1446 = 2010 

Starting index = 06 

String = 12‘SJOHN WILLIAM SMITH’ (1216 = 1840 is the 
length of the string with the substring inserted) 

Carry = 0, since no problems occurred in the insertion 


String = 0A‘JOHN SMITH’ (0Aj6 = 1010 is the length of 
the string) 

Substring = OC‘'ROCKEFELLER’ (0Cig = 12:0 is the 
length of the substring) 

Maximum length of string = 1446 = 2010 

Starting index = 06 

String = 145JOHN ROCKEFELLESMITHW’ (1416 = 2010 
is the length of the string with as much of the substring 
inserted as the maximum length would allow) 

Carry = 1, since some of the substring could not be 
inserted without exceeding the maximum length of the 
string. 





Registers used AX, BX, CX, DI, DX, F (clears D flag), SI 
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Execution time Approximately 


20 x NUMBER OF BYTES MOVED + 20 x NUMBER OF 
BYTES INSERTED + 226 cycles 


NUMBER OF BYTES MOVED is the number of bytes that must be 
moved to make room for the insertion. If the starting index is beyond 
the end of the string, this is 0 since the substring is simply placed at the 
end. Otherwise, this is STRING LENGTH — STARTING INDEX + 
1, since the bytes at or above the starting index must be moved. 

NUMBER OF BYTES INSERTED is the length of the substring if 
no truncation occurs. It is the maximum length of the string minus its 
current length if inserting the substring would produce a string longer 
than the maximum. 


Examples 


1. STRING LENGTH = 2046 (3210) 

STARTING INDEX = 1946 (2510) 

MAXIMUM LENGTH = 3046 (4810) 

SUBSTRING LENGTH = 06 

That is, we want to insert a substring 6 bytes long, starting at the 25th 

character. Since 8 bytes must be moved up (NUMBER OF BYTES 
MOVED = 32 — 25 + 1) and 6 bytes must be inserted, the execution 
time is approximately 


20 X 8 + 20 X 6 + 226 = 160 + 120 + 226 = 506 cycles. 


2. STRING LENGTH = 206 (3210) 

STARTING INDEX = 194 (2510) 

MAXIMUM LENGTH = 2446 (3610) 

SUBSTRING LENGTH = 06 

As opposed to Example 1, here we can insert only 4 bytes of the 

substring without exceeding the string’s maximum length. Thus 
NUMBER OF BYTES MOVED = 8 and NUMBER OF BYTES 
INSERTED = 4. The execution time is approximately 


20 X 8+ 20 X 4 + 226 = 160 + 80 + 226 = 466 cycles. 
Program size 93 bytes 


Data memory required None 
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Special cases 


1. If the length of the substring (the insertion) is 0, the program exits 
with the Carry flag cleared (no errors) and the string unchanged. 


2. If the starting index for the insertion is 0 (i.e. the insertion would 
Start in the length byte), the program exits with the Carty flag set to 1 
(indicating an error) and the string unchanged. 


3. If the insertion makes the string exceed the specified maximum 
length, the program inserts only enough characters to reach the 
maximum length. The Carry flag is set to 1 to indicate that the insertion 
has been truncated. 


4. If the starting index of the insertion is beyond the end of the string, 
the program concatenates the insertion at the end of the string and 
indicates an error by setting the Carry flag to 1. 


3. If the original length of the string exceeds its specified maximum 
length, the program exits with the Carry flag set to 1 (indicating an 
error) and the string unchanged. 





Title Insert a Substring into a String 
Name: INSERT 
Purpose: Insert a substring into a string given a 


starting index. 


Entry: TOP OF STACK 
Low byte of return address 
High byte of return address 
Maximum Length of (source) string 
Starting index to insert the substring 
Low byte of substring address 
High byte of substring address 
Low byte of (source) string address 
High byte of (source) string address 


Each string consists of a length byte 
followed by a maximum of 255 characters. 


Exit: Substring inserted into string. 
If no errors then 
Carry = 0 
else 
begin 
the following conditions cause the 
Carry flag to be set. 
if index = 0 then 
do not insert the substring 
if length(string) > maximum Length then 
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do not insert the substring 


, 

; if index > length(string) then 

; concatenate substring onto the end of the 
; source string 

; if length(string)+length(substring) > maxlen 
; then insert only enough of the substring 
; to reach maximum Length 

, end 

’ 

; Registers Used: AX,BX,CX,DI,DX,F (clears D flag),SI 

7 

; Time: Approximately 

; 20 X CLENGTHCSTRING) - INDEX + 1) + 

; 20 X (CLENGTHCSUBSTRING)) + 

} 226 cycles overhead 

, 

; Size: Program 93 bytes 

INSERT: 


7 
7OBTAIN PARAMETERS FROM STACK 


POP DX ;SAVE RETURN ADDRESS 

POP BX GET MAXIMUM LENGTH OF SOURCE STRING, 
3 STARTING INDEX OF INSERTION 

POP SI ;GET BASE ADDRESS OF SUBSTRING 

PoP DI ;GET BASE ADDRESS OF STRING 

PUSH DX ;PUT RETURN ADDRESS BACK IN STACK 

zEXIT IF SUBSTRING LENGTH IS ZERO OR STARTING INDEX IS 

3 ZERO 

7 

TEST BH,BH ;TEST STARTING INDEX 

STC ; INDICATE POSSIBLE ERROR 

JZ EXITIN sEXIT, INDICATING ERROR, IF STARTING 
; INDEX IS ZERO (LENGTH BYTE) 

MOV AH,CSI]. ;GET LENGTH OF SUBSTRING (NUMBER OF 
3; CHARACTERS TO INSERT 

TEST AH, AH ;TEST SUBSTRING LENGTH 

Jz EXITIN zEXIT IF NOTHING TO INSERT (NO ERROR) 


7CHECK WHETHER THE STRING WITH THE INSERTION FITS IN THE 

, SOURCE STRING CI.E., IF ITS LENGTH IS LESS THAN OR EQUAL 
7 TO THE MAXIMUM. 

7IF NOT, TRUNCATE THE SUBSTRING AND SET THE TRUNCATION FLAG 


SUB AL,AL 7CLEAR ERROR FLAG, ASSUMING NO ERRORS 
7 IN INSERTION PROCESS 
MOV CL,AH 7GET SUBSTRING LENGTH 
MOV DH, CDII 7GET STRING LENGTH 
ADD CL,DH 7SUBSTRING LENGTH + STRING LENGTH 
Jc TRUNC 7 TRUNCATE SUBSTRING IF NEW LENGTH > 255 
CMP CL,BL 7COMPARE TO MAXIMUM STRING LENGTH 


JBE SETLEN 7BRANCH IF NEW LENGTH <= MAX LENGTH 


a 
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7 SUBSTRING DOES NOT FIT, SO TRUNCATE IT 
,THAT IS, ONLY INSERT ENOUGH OF IT TO GIVE THE SOURCE 
7 STRING ITS MAXIMUM LENGTH 


e 
a 


NOT AL 7SET ERROR FLAG TO INDICATE SUBSTRING 
7 WAS TRUNCATED 

MOV CL,BL 7NUMBER OF CHARACTERS TO INSERT = 

SUB CL,DH 7 MAXIMUM LENGTH - STRING LENGTH 

JBE EREXIT 7EXIT, INDICATING ERROR FROM TRUNCATION 
7 IF STRING LENGTH >= MAX LENGTH 

MOV AH,CL 7REPLACE SUBSTRING LENGTH WITH NUMBER 
7 OF CHARACTERS TO INSERT 

MOV CL,BL 7NEW LENGTH = MAXIMUM LENGTH 


, 
7SET LENGTH AFTER INSERTION 


yTHIS IS OLD LENGTH PLUS NUMBER OF CHARACTERS TO INSERT 


7THE VALUE IS EITHER SUBSTRING LENGTH PLUS STRING 
7 LENGTH OR MAXIMUM LENGTH. 


, 
MOV CdOI],CL 7SET NEW STRING LENGTH 


; 
;SET POINTERS FOR INSERTION 

;SOURCE POINTER POINTS TO FIRST CHARACTER IN SUBSTRING 
;DESTINATION POINTER POINTS TO CHARACTER AT STARTING 

3 INDEX 


a 

INC SI 7POINT TO FIRST CHARACTER IN SUBSTRING 
7 (SKIP OVER LENGTH BYTE) 

MOV CL,BH 7EXTEND STARTING INDEX TO 16 BITS 

SUB CH,CH 


ADD DI,CX 7POINT TO POSITION AT WHICH FIRST 
7 CHARACTER WILL BE INSERTED 


7 
7CHECK WHETHER STARTING INDEX IS WITHIN THE STRING. IF NOT, 
7 CONCATENATE SUBSTRING ONTO THE END OF THE STRING 


a 

CMP BH,DH 7COMPARE STARTING INDEX, STRING LENGTH 

JBE LENOK 7BRANCH IF STARTING INDEX IS WITHIN STRING 
INC BH 7ELSE SET STARTING INDEX TO END OF STRING 
MOV AL,OFFH 7 INDICATE ERROR IN INSERT 


JMP MVESUB 7JUST PERFORM MOVE, NOTHING TO OPEN UP 


7 

7OPEN UP A SPACE IN SOURCE STRING FOR THE SUBSTRING BY MOVING 
7 THE CHARACTERS FROM THE END OF THE SOURCE STRING DOWN TO 

7 INDEX, UP BY NUMBER OF CHARACTERS TO INSERT 


, 
7CALCULATE NUMBER OF CHARACTERS TO MOVE 
7 COUNT == STRING LENGTH - STARTING INDEX + 1 


7 
MOV CL,DH 7GET STRING LENGTH 
SUB CL,BH 7 SUBTRACT STARTING INDEX 


, 
7SET SOURCE AND DESTINATION POINTERS 
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7SOURCE POINTER POINTS TO LAST CHARACTER IN STRING 
7DESTINATION POINTER POINTS FURTHER ON BY NUMBER OF 
7 CHARACTERS TO INSERT 


a 

PUSH SI 7SAVE ADDRESS OF FIRST CHARACTER IN 
7 SUBSTRING 

ADD DI ,CX 7CALCULATE ADDRESS AT END OF STRING 

MOV SI,DI 

MOV DL,AH 7MAKE NUMBER OF CHARACTERS TO INSERT 

SUB DH,DH 7 INTO 16 BIT OFFSET 

ADD DI ,DX 7CALCULATE ADDRESS AT END OF STRING WITH 
7 INSERTION 

INC Cx ,COUNT = STRING LENGTH - STARTING INDEX+1 

STD 7SELECT AUTODECREMENTING 


7MOVE CHARACTERS UP IN MEMORY TO MAKE ROOM FOR SUBSTRING 


a 
REP MOVSB 7MOVE CHARACTERS UP IN MEMORY 

7 THIS LEAVES ROOM FOR INSERTION OF 
7 SUBSTRING 

MOV DI,SI 7MAKE DESTINATION POINTER POINT TO START 
7 OF INSERTION AREA 

INC DI 

POP SI 7RESTORE SUBSTRING STARTING ADDRESS 


7 
;MOVE SUBSTRING INTO THE OPEN AREA 


a 


MVESUB: 
MOV CL,AH 7COUNT = SUBSTRING LENGTH 
CLD 7SELECT AUTOINCREMENTING 

REP MOVSB 7MOVE SUBSTRING INTO OPEN AREA 

av 
7SET CARRY AS ERROR INDICATOR FROM ERROR FLAG 

EREXIT: SHR AL,1 7SET CARRY FROM ERROR FLAG 

EXITIN: RET 7,EXIT 

wv 

; SAMPLE EXECUTION: 

’ 

SC5F: 
MOV BX,OFFSET STG ;GET BASE ADDRESS OF STRING 
PUSH BX 
MOV BX,OFFSET SSTG ;GET BASE ADDRESS OF SUBSTRING 
PUSH BX 
MOV AH,CIDX] 7GET STARTING INDEX 
MOV AL, C MXLENJ 7GET MAXIMUM LENGTH OF STRING 
PUSH AX 
CALL INSERT 7 INSERT SUBSTRING 


7RESULT OF INSERTING '-' INTO '123456' AT 
7 INDEX 1 IS '-123456' 
JMP SC5F 7LOOP THROUGH TEST 
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,DATA SECTION 


IDX DB 1 zSTARTING INDEX FOR INSERTION 
MXLEN DB 20H 7MAXIMUM LENGTH OF DESTINATION 
STG DB 6 7 LENGTH OF STRING 

DB "123456 ' ;32 BYTE MAX 
SSTG DB 1 ; LENGTH OF SUBSTRING 

DB '- " 732 BYTE MAX 


END 
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5G Remove spaces from a string 
(SPACES) 


Removes excess spaces from a string, including leading spaces, trailing 
spaces, and extra spaces within the string itself. The string consists of at 
most 256 bytes, including an initial byte containing the length. This is a 
Pascal-style string with a length byte, rather than a C language-style 
string with a terminating character. 


Procedure The program exits immediately if the length of the string is 
0. Otherwise, it first removes all leading spaces. It then sets a flag 
whenever it finds a space and deletes all subsequent spaces. If it reaches 
the end of the string with that flag set, it deletes the final trailing space as 
well. Finally, it adjusts the string’s length. 


Entry conditions 


Base address of string in register BX 


Exit conditions 


Excess spaces removed from string. The string is left with no leading or 
trailing spaces and no groups of consecutive spaces inside it. 


Examples 


1. Data: String = OF‘ JOHN SMITH ’ (OF i6 = 1510 is the length 
of the string) 
Result: String = OASJOHN SMITH’ (OAi6 = 104 is the length of 
the string with the extra spaces removed) 


2. Data: String = 1B‘ PORTLAND, OREGON °(1Bi6 = 
2710 is the length of the string) 
Result: String = 10’PORTLAND, OREGON’ (1016 = 161 is the 
length of the string with the extra spaces removed) 


Registers used AX, CX, DI, DX, F (clears D flag), SI 
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Executiontime Approximately 
62 X LENGTH OF STRING IN BYTES + 102 

If, for example, the string is 1C hex (28 decimal) bytes long, this is 
62 x 28 + 102 = 1736 + 102 = 1838 cycles 


Program size 55 bytes 


Data memory required None 





7 
; Title Remove Extra Spaces from a String 
; Name: SPACES 
7 
Purpose: Remove leading, trailing, and extra 


internal spaces from a string 
Entry: Register BX = Base address of string 


The string consists of a length byte 
followed by a maximum of 255 characters. 


Ne Ne Ne Ws Ne We Ws Ne 


Exit: Leading, trailing, and excess internal 
Spaces removed 


Registers Used: AX,CX,DI,F (clears D flag),SI 


Time: Approximately 
62 X (LENGTHC(STRG)) + 102 cycles overhead 


Size: Program 55 bytes 


Ne “Ns “Ss “Ss Noe Ns Ne “Ns Ne Ne Ne 


SPACES: 


, 

7 SAVE BASE ADDRESS OF STRING 

7START COMPACTED STRING'S LENGTH AT ZERO 

7 INDICATE INITIALLY LAST CHARACTER WAS NOT A SPACE 


MOV SI ,BX 7SAVE BASE ADDRESS OF STRING 
SUB DX ,DX 7 INDICATE LAST CHARACTER WAS NOT A SPACE 
; (DL = 0) 


;COMPACTED STRING'S LENGTH (DH) = ZERO 
sEXIT IF STRING LENGTH IS ZERO 


MOV CL,CSI] 7GET STRING LENGTH 
SUB CH,CH 7EXTEND STRING LENGTH TO 16 BITS 


REPE 


MVCHAR: 


MARKCH: 


SVCHR: 
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TEST CL,CL 7 TEST STRING LENGTH 
JZ EXITRE 7BRANCH CEXIT) IF STRING LENGTH IS ZERO 


7REMOVE ALL LEADING SPACES 


a 

INC SI 7POINT TO FIRST CHARACTER IN STRING 

MOV DI,SI 7START POINTERS TO BOTH ORIGINAL, COMPACTED 
7 STRINGS AT FIRST CHARACTER IN STRING 

CLD 7SELECT AUTOINCREMENTING 

MOV AL,SPACE ;GET SPACE FOR COMPARISON 

SCASB : 7KEEP EXAMINING CHARACTERS UNTIL EITHER 
7 COUNT REACHES ZERO OR NON-SPACE IS 
7 FOUND 
7NOTE THAT SCASB USES DI AND AL 

JE SETLEN 7BRANCH IF SCAN ENDED BECAUSE ALL 


7 CHARACTERS WERE EXAMINED - THIS MEANS 
7 ALL CHARACTERS WERE SPACES SO COMPACTED 
7 STRING IS EMPTY 


, 
7WORK THROUGH MAIN PART OF STRING, OMITTING SPACES 
7 THAT OCCUR IMMEDIATELY AFTER OTHER SPACES 


7CHECK IF CURRENT CHARACTER IS A SPACE 

7IF SO, CHECK IF PREVIOUS CHARACTER WAS A SPACE 
7IF SO, OMIT CHARACTER FROM COMPACTED STRING 
7IF NOT, MARK CHARACTER AS A SPACE 


XCHG DI,SI 7MAKE SOURCE POINTER POINT TO FIRST 
7 NON-BLANK CHARACTER, DESTINATION 
7 POINTER POINT TO FIRST CHARACTER 
7 IN SUBSTRING 

DEC SI 7NOTE FIRST NON-BLANK CHARACTER IS ONE 
7 BACK FROM CURRENT POINTER VALUE SINCE 
7 LOOP INCREMENTED POINTER AFTER MAKING 
7 FINAL COMPARISON 


LODSB 7GET NEXT CHARACTER CAND INCREMENT 
7 SOURCE POINTER) 

CMP AL,SPACE ;IS IT A SPACE? 

JNE MARKCH 7BRANCH IF CHARACTER IS NOT A SPACE 

TEST DL,DL 7CHECK IF LAST CHARACTER WAS A SPACE 

JNZ CNTCHR 7BRANCH IF IT WAS, THUS DROPPING A SPACE 
7 THAT OCCURS AFTER ANOTHER SPACE 

NOT DL 7 INDICATE CURRENT CHARACTER IS A SPACE 

JMP SVCHR 7GO SAVE FIRST SPACE 


7 INDICATE CURRENT CHARACTER IS NOT A SPACE 


7 
SUB DL,DL 7 INDICATE CURRENT CHARACTER NOT A SPACE 


a 
7 SAVE CURRENT CHARACTER IN COMPACTED STRING 


a 


STOSB 7 SAVE CHARACTER IN COMPACTED STRING CAND 
7 INCREMENT DESTINATION POINTER) 
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INC DH 7ADD 1 TO LENGTH OF COMPACTED STRING 
7 
7COUNT CHARACTERS 
7 
CNTCHR: LOOP MVCHAR 7BRANCH IF ANY CHARACTERS LEFT 


a 
7OMIT LAST CHARACTER IF IT WAS A SPACE 


TEST DL,DL ;CHECK IF FINAL CHARACTER WAS A SPACE 

JZ SETLEN ;BRANCH IF IT WAS NOT 

DEC DH ;OMIT FINAL CHARACTER IF IT WAS A SPACE BY 
y REDUCING LENGTH OF COMPACTED STRING 
>; BY 1 


a 
7SET LENGTH OF COMPACTED STRING 


a 


SETLEN: 
MOV CBX1,DH 7SAVE LENGTH OF COMPACTED STRING 
, 
7EXIT 
7 
EXITRE: RET 


7 
,CHARACTER DEFINITION 


7 
SPACE EQU 20H 7ASCII SPACE CHARACTER 
SAMPLE EXECUTION: 


SC5G: 
MOV BX,OFFSET STG ;GET BASE ADDRESS OF STRING 
CALL SPACES ;REMOVE SPACES 
;RESULT OF REMOVING EXTRA SPACES FROM 
3; ' JOHN SMITH ' IS ‘JOHN SMITH! 


7 
7DATA SECTION 


a 
STG DB OEH 7LENGTH OF STRING IN BYTES 
DB " JOHN SMITH '! 7 STRING 


END 





6 Array operations 


6A_ 8-bit array summation 
(ASUM8) 


Adds the elements of an array of byte-length elements, producing a 
16-bit sum. 


Procedure The program starts the sum at 0. It then adds elements one 
at a time to the sum’s less significant byte. It also adds the carries to the 
sum’s more significant byte. 


Entry conditions 


Base address of array in register BX 
Size of array in bytes in register AX 


Exit conditions 


Sum in register AX 


Example 
Data: Size of array in bytes = [AX] = 0008 
187 
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Array elements 
F716 — 24710 
2316 = 3510 
3lie = 4910 
1016 = 11210 
SA46 = 9010 
1616 = 2210 
CBi6 = 20310 
Elie = 22510 


Result: Sum = [AX] = 03D746 = 98340 


Registers used AX, BX, CX, F 


Execution time Approximately 37 cycles per byte-length element 
plus 9 cycles overhead. If, for example, the array consists of 1Ci¢ (2840) 
elements, the execution time is approximately 


37 X 28 + 9 = 1036 + 9 = 1045 cycles 


Program size _ 15 bytes 


Data memory required None 


Special case An array size of 0 causes an immediate exit with a sum 


of 0. 


Title 
Name: 


Purpose: 


Entry: 


Exit: 


Registers Used: 


8-Bit Array Summation 
ASUM8 


Sum the elements of an array of byte-Length 
elements, yielding a 16-bit result. 


Register BX = Base address of array 
Register AX = Size of array in bytes 


Register AX = Sum 


AX ,BX,CX,F 
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Time: Approximately 37 cycles per element plus 
9 cycles overhead 


Size: Program 15 bytes 


we Ne Ne Ns Ne NO 


, 
7 TEST ARRAY LENGTH 
7EXIT WITH SUM = O IF ARRAY HAS NO ELEMENTS 


av 


ASUM8: 
MOV CX ,AX 7 SAVE ARRAY LENGTH 
SUB AX, AX 7 START SUM AT ZERO 
JCXZ EXITAS 7BRANCH CEXIT) IF ARRAY LENGTH IS 
7 ZERO - SUM IS ZERO IN THIS CASE 
; 
7ADD BYTE-LENGTH ELEMENTS TO LOW BYTE OF SUM ONE AT A TIME 
7ADD CARRIES TO HIGH BYTE OF SUM 
SUMLP: 
ADD AL,CBX] 7ADD NEXT ELEMENT TO LOW BYTE OF 
7, SUM 
ADC AH,0 7ADD CARRY TO HIGH BYTE OF SUM 
INC BX 
LOOP SUMLP 7CONTINUE THROUGH ALL ELEMENTS 
EXITAS: 
RET 
; SAMPLE EXECUTION 
7 
SC6A: 
MOV BX,OFFSET BUF ;GET BASE ADDRESS OF BUFFER 
MOV AX, CBUFSZ] 7GET BUFFER SIZE IN BYTES 
CALL ASUM8 7SUM ELEMENTS IN BUFFER 


7SUM OF TEST DATA IS O7F8 HEX, 
7 REGISTER AX = O7F8H 


JMP SC6A 7LOOP FOR ANOTHER TEST 
7TEST DATA, CHANGE FOR OTHER VALUES 
BSIZE EQU 10H ,SIZE OF BUFFER IN BYTES 
BUFS2Z DW BSIZE 7SIZE OF BUFFER IN BYTES 
BUF DB 0 7 BUFFER 

DB 11H ;DECIMAL ELEMENTS ARE 0,17,34,51,68 

DB 22H 785,102,119,135,153,170 

DB 33H 7187,204,221,238,255 

DB 44H 

DB 55H 

DB 66H 

DB 77H 

DB 88H 

DB 99H 


DB OAAH 
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DB 
DB 
DB 
DB 
DB 


END 


OBBH 
OCCH 
ODDH 
OEEH 
OFFH 


7 SUM 


O7F8 (2040 DECIMAL) 
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6B 16-bit array summation 
(ASUM16) 


Adds the elements of an array of word-length (16-bit) elements, pro- 
ducing a 32-bit sum. The elements are arranged in the usual 8086 format 
with the less significant byte first. 


Procedure The program starts the sum at zero. It then adds elements 
to the sum’s less significant word one at a time, beginning at the base 
address. Whenever an addition produces a carry, the program adds 1 to 
the sum’s more significant word. 


Entry conditions 


Base address of array in BX 
Size of array in 16-bit words in AX 


Exit conditions 


Low word of sum in AX 
High word of sum in DX 


The use of DX and AX for a 32-bit result is compatible with 8086 
multiplication and division instructions. 


Example 
Data: Size of array (in 16-bit words) = [AX] = 0008 
Array elements 


F7A1i6 = 63,3930 
239Bi6 = 911540 
31DSi6 = 12,757 10 
TOF 216 = 28,91410 
5A3616 = 23,0941 
166Ci6 = 5,74010 
CBF5i¢6 = 52,21310 
E10716 = 57,607 10 
Result: Sum = 03DBA1i¢6 = 252 83310 
[DX] = more significant word of sum = 000316 
[AX] = less significant word of sum = DBA1i¢6 
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Registers used AX, BX, CX, DX,F 


Execution time 39 cycles per 16-bit element plus 13 cycles overhead. 
If, for example, the array consists of 121¢ (18:9) elements, the execution 


time is 


39 x 18 + 13 = 702 + 13 = 715 cycles 


Program size 18 bytes 


Data memory required None 


Special case 


An array size of 0 causes an immediate exit with a sum 





of 0. 
Title 16-Bit Array Summation 
Name: ASUM16 
Purpose: Sum the elements of an array of word-length 
(16-bit) elements, yielding a 32-bit result. 
Entry: Register BX = Base address of array 
Register AX = Size of array (in 16-bit words) 
Exit: Register AX Low word of sum 


Registers Used: 


Time: 


Size: 


Register DX High word of sum 
AX ,BX,CX,DX,F 


Approximately 39 cycles per element plus 
13 cycles overhead 


Program 18 bytes 


7 
7TEST ARRAY LENGTH 


zEXIT WITH SUM 


= 0 IF ARRAY HAS NO ELEMENTS 


a 

MOV CX ,AX 7MOVE ARRAY LENGTH TO CX 
SUB AX ,AX 7CLEAR 32-BIT SUM 

MOV DX ,AX 


SUMLP: 


EXITS1 


we Se Ne 


SC6B: 


7 TEST 
BSIZE 
BUFSZ 


BUF 
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JCXZ EXITS1 7BRANCH CEXIT) IF ARRAY LENGTH IS 
7 ZERO - SUM IS ZERO IN THIS CASE 


7ADD WORD-LENGTH ELEMENTS TO LOW WORD OF SUM ONE AT A TIME 
7ADD CARRIES TO HIGH WORD OF SUM 


a 

ADD AX, CBX] 7ADD ELEMENT TO LOW WORD OF SUM 
ADC DX,0 7ADD CARRY TO HIGH WORD OF SUM 

INC BX 7CONTINUE THROUGH ALL ELEMENTS 

INC BX 

LOOP SUMLP 

7 EXIT 

RET 


SAMPLE EXECUTION 


MOV BX,OFFSET BUF ;GET BASE ADDRESS OF BUFFER 
MOV AX, CBUFSZ] 7GET SIZE OF BUFFER IN WORDS 
CALL ASUM16 7SUM WORD-LENGTH ELEMENTS IN BUFFER 


7 SUM OF TEST DATA IS 31FF8 HEX, 
7 REGISTER AX = 1FF8H 
7 REGISTER DX = 0003 


JMP SC6B 7LOOP FOR ANOTHER TEST 
DATA, CHANGE FOR OTHER VALUES 
EQU 10H 7SIZE OF BUFFER IN WORDS 
DW BSIZE 7SIZE OF BUFFER IN WORDS 
DW 0 ,;BUFFER 
DW 111H 7DECIMAL ELEMENTS ARE 0,273,546,819,1092 
DW 222H 71365 ,1638,1911,2184,2457,2730,3003 ,3276 
DW 333H 796797 ,61166,65535 
DW 444H 
DW 555H 
DW 666H 
DW (77H 
DW 888H 
DW 999H 
DW OAAAH 
DW OBBBH 
DW OCCCH 
DW ODDDDH 
DW OEEEEH 
DW OFFFFH 7SUM = 31FF8 (204792 DECIMAL) 


END 
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6C Find maximum byte-length element 
(MAXELM) 


Finds the maximum element in an array of unsigned byte-length 
elements. 


Procedure The program exits immediately (setting Carry to 1) if the 
array has no elements. Otherwise, the program assumes that the ele- 
ment at the base address is the maximum. It then works through the 
array, comparing the supposed maximum with each element and 
retaining the larger value and its address. Finally, the program clears 
Carry to indicate a valid result. 


Entry conditions 


Base address of array in register BX 
Size of array in bytes in register AX 


Exit conditions 


Largest unsigned element in register AL 
Address of largest unsigned element in register BX 


Carry = 0 if result is valid, 1 if size of array is 0 and result is meaningless 


Example 
Data: Size of array (in bytes) = [AX] = 0008 
Array elements 


3516 = 5310 4446 = 6810 
Abie = 16640 5916 = 8910 
D216 = 21010 7TA16 = 12210 
1Bi¢ = 2710 CFi¢6 = 20710 
Result: The largest unsigned element is element #2 (D216 = 210i0) 
[AL] = largest element (D2.) 
[BX] = BASE + 2 (lowest address containing D2.) 
Carry = 0, indicating that array size is non-zero and the result 
is valid 
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Registers used AX, BX, CX, DI, F (clears D flag) 


Execution time Approximately 39-60 cycles per element plus 26 
cycles overhead. The larger number applies to each iteration in which 
the program replaces the presumed maximum value with the current 
element. If, on average, this occurs in half of the iterations, the execu- 
tion time is approximately 


(39 + 60) x ARRAY SIZE/2 + 26 cycles 


If, for example, ARRAY SIZE = 1816 = 2410 bytes, the approximate 
execution time is 


99 X 12 + 26 = 1188 + 26 = 1214 cycles 
Program size 24 bytes 
Data memory required None 


Special cases 


1. An array size of 0 causes an immediate exit with Carry set to 1 to 
indicate an invalid result. 


2. If the largest unsigned value occurs more than once, the program 
returns with the lowest possible address. That is, it returns with the 
address closest to the base address that contains the maximum value. 


Title Find Maximum Byte-Length Element 
Name: MAXELM 
Purpose: Given the base address and size of an array, 


find the largest element. 


Entry: Register BX = Base address of array 
Register AX = Size of array in bytes 
Exit: If size of array not zero then 
Carry = 0 


Register AL = Largest element 
Register BX = Address of that element 

If there are duplicate values of the Largest 
element, register BX contains the address 


196 


we Ne Ne Ne Ne Ne Ne Ne Ns Ne Ns Noe 


MAXELM: 


MAXLP: 


MAXLP1: 


EXITLP: 


EXITMX: 
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nearest to the base address. 
else 
Carry = 1 


Registers Used: AX,BX,CX,DI,F (clears D flag) 


Time: Approximately 39 to 60 cycles per byte 


plus 26 cycles overhead 


Size: Program 24 bytes 


, 
7EXIT WITH CARRY SET IF NO ELEMENTS IN ARRAY 


7 

STC 7SET CARRY IN CASE ARRAY HAS NO ELEMENTS 
MOV CX ,AX 7 SAVE NUMBER OF ELEMENTS 

JCXZ EXITMX 7BRANCH CEXIT) WITH CARRY SET IF NO 


7 ELEMENTS - INDICATES INVALID RESULT 


a 

7EXAMINE ELEMENTS ONE AT A TIME, COMPARING EACH ONE'S VALUE 
7 WITH CURRENT MAXIMUM AND ALWAYS KEEPING LARGER VALUE AND 
7 ITS ADDRESS. IN THE FIRST ITERATION, TAKE THE FIRST 

7 ELEMENT AS THE CURRENT MAXIMUM. 


a 

CLD 7SELECT AUTOINCREMENTING 

MOV DI,BX 7SET POINTER AS IF PROGRAM HAD JUST 

INC DI 7 EXAMINED THE FIRST ELEMENT AND FOUND 
7 IT TO BE LARGER THAN PREVIOUS MAXIMUM 

MOV BX,DI 7 SAVE ADDRESS OF ELEMENT JUST EXAMINED 

DEC BX 7 AS ADDRESS OF MAXIMUM 

MOV AL, CBX] 7 SAVE ELEMENT JUST EXAMINED AS MAXIMUM 


a 
7COMPARE CURRENT ELEMENT TO MAXIMUM 
7KEEP LOOKING UNLESS CURRENT ELEMENT IS LARGER 


DEC Cx 7COUNT ELEMENTS 
JZ EXITLP 7BRANCH CEXIT) IF ALL ELEMENTS EXAMINED 
SCASB 7COMPARE CURRENT ELEMENT TO MAXIMUM 

7 ALSO MOVE POINTER TO NEXT ELEMENT 
JAE MAXLP1 7CONTINUE UNLESS CURRENT ELEMENT LARGER 
JB MAXLP 7ELSE CHANGE MAXIMUM 


710 RETURN LAST OCCURRENCE RATHER THAN 
7 FIRST OCCURRENCE, CHANGE THE CONDITIONAL 
7 BRANCHES TO JA AND JBE 


7 
7CLEAR CARRY TO INDICATE VALID RESULT - MAXIMUM FOUND 


CLC 7CLEAR CARRY TO INDICATE VALID RESULT 


SC6C: 


SZARY 
ARY 
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SAMPLE EXECUTION: 


MOV 
MOV 
CALL 


BX,OFFSET ARY ;GET BASE ADDRESS OF ARRAY 

AX,SZARY ;GET SIZE OF ARRAY IN BYTES 

MAXELM 7 FIND LARGEST UNSIGNED ELEMENT 
7RESULT FOR TEST DATA IS 
7 AL = FF HEX (MAXIMUM), BX = ADDRESS OF 
7 FF IN ARY. 

Scé6C 7LOOP FOR MORE TESTING 


OH 7SIZE OF ARRAY IN BYTES 


= NW & UA ~~ OC — 


OFFH 
OFEH 
OFDH 
OFCH 
OFBH 
OFAH 
OF9SH 
OF8H 
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6D Find minimum byte-length element 
(MINELM) 


Finds the minimum element in an array of unsigned byte-length 
elements. 


Procedure The program exits immediately (setting Carry to 1) if the 
array has no elements. Otherwise, the program assumes that the ele- 
ment at the base address is the minimum. It then works through the 
array, comparing the current minimum to each element and retaining 
the smaller value and its address. Finally, the program clears Carry to 
indicate a valid result. 


Entry conditions 


Base address of array in register BX 
Size of array in bytes in register AX 


Exit conditions 


Smallest unsigned element in register AL 
Address of smallest unsigned element in register BX 
Carry = Oif result is valid, 1 if size of array is 0 and result is meaningless 


Example 
Data: Size of array (in bytes) = [AX] = 0008 
Array elements 


3516 = 5310 4416 = 6810 
Abie = 16610 5916 = 8910 
D216 = 21010 TA = 12210 
1Bi¢6 = 2710 CFi6 = 20710 
Result: The smallest unsigned element is element #3 (1B16 = 2710) 
[AL] = smallest element (1Bi16) 
[BX] = BASE + 3 (lowest address containing 1B) 
Carry = 0, indicating that array size is non-zero and the result 
is valid 
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Registers used AX, BX, CX, DI, F (clears D flag) 


Execution time Approximately 39 to 60 cycles per element plus 26 
cycles overhead. The larger number of cycles applies to each iteration in 
which the program replaces the presumed minimum value with the 
current element. If, on the average, this occurs in half of the iterations, 
the execution time is approximately 


(39 + 60) x ARRAY SIZE/2 + 26 cycles 


If, for example, ARRAY SIZE = 1416 = 20i0, the approximate 
execution time is 


99 x 10 + 26 = 990 + 26 = 1016 cycles 


Program size 24 bytes 


Data memory required None 


Special cases 


1. An array size of 0 causes an immediate exit with Carry set to 1 to 
indicate an invalid result. 


2. If the smallest unsigned value occurs more than once, the program 
returns with the lowest possible address. That is, it returns with the 
address closest to the base address that contains the minimum value. 


Title Find Minimum Byte-Length Element 
Name: MINELM 
Purpose: Given the base address and size of an array, 


find the smallest element 


Entry: Register BX = Base address of array 
Register AX = Size of array in bytes 


Exit: If size of array not zero then 
Carry = 0 
Register AL Smallest element 
Register BX Address of that element 
If there are duplicate values of the smallest 
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MINLP1: 


EXITLP: 


EXITMN: 


INELM: 
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element, register BX contains the address 
nearest to the base address. 

else 
Carry = 1 


Registers Used: AX,BX,CX,DI,F (clears D flag) 


Time: Approximately 39 to 60 cycles per byte 


plus 26 cycles overhead 


Size: Program 24 bytes 


, 
7EXIT WITH CARRY SET IF ARRAY CONTAINS NO ELEMENTS 


av 

STC 7SET CARRY IN CASE ARRAY HAS NO ELEMENTS 
MOV CX ,AX 7 SAVE NUMBER OF ELEMENTS 

JCXZ EXITMN 7BRANCH CEXIT) WITH CARRY SET IF NO 


7 ELEMENTS - INDICATES INVALID RESULT 


a 

7EXAMINE ELEMENTS ONE AT A TIME, COMPARING EACH VALUE WITH 
7 THE CURRENT MINIMUM AND ALWAYS KEEPING THE SMALLER VALUE 
7 AND ITS ADDRESS. IN THE FIRST ITERATION, TAKE THE FIRST 
7 ELEMENT AS THE CURRENT MINIMUM. 


a 
CLD 7 SELECT AUTOINCREMENTING 
MOV DI ,BX 7SET POINTER AS IF PROGRAM HAD JUST 
INC DI 7 EXAMINED THE FIRST ELEMENT AND FOUND 
7 IT TO BE SMALLER THAN PREVIOUS MINIMUM 
MOV BX,DI 7SAVE ADDRESS OF ELEMENT JUST EXAMINED 
DEC BX 7 AS ADDRESS OF MINIMUM 
MOV AL, CBX] 7 SAVE ELEMENT JUST EXAMINED AS MINIMUM 


, 
7COMPARE CURRENT ELEMENT TO SMALLEST 
7KEEP LOOKING UNLESS CURRENT ELEMENT IS SMALLER 


a 


DEC CX 7COUNT ELEMENTS 
JZ EXITLP 7BRANCH CEXIT) IF ALL ELEMENTS EXAMINED 
SCASB 7COMPARE CURRENT ELEMENT TO MINIMUM 

7 ALSO MOVE POINTER TO NEXT ELEMENT 
JBE MINLP1 7CONTINUE UNLESS CURRENT ELEMENT SMALLER 
JA MINLP 7ELSE CHANGE MINIMUM 


7TO0 RETURN LAST OCCURRENCE RATHER THAN 
7, FIRST OCCURRENCE, CHANGE THE CONDITIONAL 
7 BRANCHES TO JB AND JAE 


7 
,CLEAR CARRY TO INDICATE VALID RESULT - MINIMUM FOUND 


CLC 7CLEAR CARRY TO INDICATE VALID RESULT 


RET 


SC6D: 


SZARY 
ARY 


6D Find minimum byte-length element (MINELM) 


SAMPLE EXECUTION: 


MOV 
MOV 
CALL 


JMP 


EQU 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 


BX,OFFSET ARY ;GET BASE ADDRESS OF ARRAY 

AX,SZARY ;GET SIZE OF ARRAY IN BYTES 

MINELM ;FIND MINIMUM VALUE IN ARRAY 
;RESULT FOR TEST DATA IS 
j AL = 1 HEX (MINIMUM), BX = ADDRESS OF 
7; 1 IN ARY. 

SC6D 7;LOOP FOR ANOTHER TEST 


OH ,SIZE OF ARRAY IN BYTES 


OFEH 
OFDH 
OFCH 
OFBH 
OFAH 
OF9H 
OF8H 
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6E Binary search 
(BINSCH) 





Searches an array of unsigned byte-length elements for a particular 
value. The elements are assumed to be arranged in increasing order. 
Clears Carry if it finds the value and sets Carry to 1 if it does not. 
Returns the address of the value if found. 


Procedure The program does the search by repeatedly comparing the 
value with the middle remaining element. After each comparison, the 
program discards the part of the array that cannot contain the value 
(because of the ordering). The program retains upper and lower bounds 
for the part still being searched. If the value is larger than the middle 
element, the program discards that element and everything below it. 
The new lower bound is the address of the middle element plus 1. If the 
value is smaller than the middle element, the program discards that 
element and everything above it. The new upper bound is the address of 
the middle element minus 1. The program exits if it finds a match or if 
there is nothing left to search. 
For example, assume that the array is 


0116, 0216, 0516, 0716, 0916, 0916, OD16, 1016, 2E16, 3716, 5D16, 7E16, 
Alj6, B416, D716, E016 


and the value being sought is 0D15. The procedure works as follows. 
In the first iteration, the lower bound is the base address and the 
upper bound is the address of the last element. So we have 


LOWER BOUND = BASE 
UPPER BOUND = BASE + LENGTH -— 1 = BASE + 0Fi¢ 
GUESS = (UPPER BOUND + LOWER BOUND)/2 
= BASE + 7 (the result is truncated) 
[GUESS] = ARRAY(7) = 1016 = 1610 


Since the value (ODi¢) is less than ARRAY(7), we can discard the 
elements beyond #6. So we have 


LOWER BOUND = BASE 

UPPER BOUND = GUESS — 1 = BASE + 6 

GUESS = (UPPER BOUND + LOWER BOUND)/2 
= BASE +3 

[GUESS] = ARRAY(3) = 07 


Since the value (OD46) is greater than ARRA Y(3), we can discard the 
elements below #4. So we have 
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LOWER BOUND = GUESS + 1 = BASE + 4 

UPPER BOUND = BASE + 6 

GUESS = (UPPER BOUND + LOWER BOUND)/2 
= BASE + 5 

[GUESS] = ARRAY(5) = 09 


Since the value (OD1¢) is greater than ARRAY(5), we can discard the 
elements below #6. So we have 


LOWER BOUND = GUESS + 1 = BASE + 6 

UPPER BOUND = BASE + 6 

GUESS = (UPPER BOUND + LOWER BOUND)/2 
= BASE + 6 


Since the value (0Di¢) is equal to ARRAY(6), we have found the 
element. If, on the other hand, the value were OE;.6, the new lower 
bound would be BASE + 7 and there would be nothing left to search. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Value to find 
Unused (wasted) byte 


Low byte of size of array in bytes 
High byte of size of array in bytes 


Low byte of base address of array (address of smallest unsigned 
element) 
High byte of base address of array (address of smallest unsigned 
element) 


Exit conditions 


Carry = 0 if the value is found, 1 if it is not found. 
If the value is found, [BX] = its address. 
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Examples 


Length of array = 1016 = 1640 
Elements of array are: 016, 0216, 0516, 0716, 0916, 0916, OD16, 1016, 2E16, 
3716, SD16, TE16, Alice, B416, D716, E016 


1. Data: Value to find = 0Di¢ 
Result: Carry = 0, indicating value found 
[BX] = BASE + 6 (address containing 0D 4.) 


2. Data: Value to find = 9Bi¢ 
Result: Carry = 1, indicating value not found 


Registers used AX, BX, DI, F, SI 


Execution time Approximately 70 cycles per iteration plus 75 cycles 
overhead. A binary search takes on the order of log.N iterations, where 
N is the number of elements in the array. 

If, for example, N = 32, the binary search takes about log.32 = 5 
iterations. The execution time is then approximately 


70 X 5 + 75 = 350 + 75 = 425 cycles 


Program size 48 bytes 


Data memory required None 


Special case A size of 0 causes an immediate exit with Carry set to 1. 
That is, the array contains no elements and the value surely cannot be 
found. 





Title Binary Search 
Name: BINSCH 
Purpose: Search an ordered array of unsigned bytes, 


with a maximum size of 65,535 elements. 


Entry: TOP OF STACK 
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Low byte of return address 

High byte of return address 

Value to find 

Unused byte 

Low byte of length (size) of array in bytes 
High byte of length (size) of array in bytes 
Low byte of base address of array 

High byte of base address of array 


Exit: If the value is found then 
Carry = 0 
Register BX = Address of value 
Else 
Carry = 1 


Registers Used: AX,BX,DI,F,SI 


Time: Approximately 70 cycles per iteration of 
the search loop plus 75 cycles overhead 


A binary search takes on the order of log 
base 2 of N iterations, where N is the number of 
elements in the array. 


Size: Program 48 bytes 
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7 
BINSCH: 


7OBTAIN PARAMETERS FROM STACK 


POP DI 7GET RETURN ADDRESS 

POP AX 7GET VALUE TO FIND CIN AL) 

POP BX 7GET SIZE OF ARRAY IN BYTES 
POP SI 7GET BASE ADDRESS OF ARRAY 


PUSH DI 7PUT RETURN ADDRESS BACK IN STACK 
, 
7EXIT INDICATING VALUE NOT FOUND IF ARRAY CONTAINS NO ELEMENTS 


TEST BX ,BX 7CHECK NUMBER OF ELEMENTS 
JZ NOTFND 7BRANCH CEXIT) IF NO ELEMENTS 
7 VALUE SURELY CANNOT BE FOUND 


a 

7INITIALIZE POINTER TO UPPER BOUND 
,LOWER BOUND = BASE ADDRESS 

7UPPER BOUND = ADDRESS OF LAST ELEMENT = 
7 BASE ADDRESS + SIZE - 1 


a 
LEA DI,CBX+SI-1] 7GET ADDRESS OF LAST ELEMENT 


a 

7 ITERATION OF BINARY SEARCH 

71) COMPARE VALUE TO MIDDLE ELEMENT 

72) IF THEY ARE NOT EQUAL, DISCARD HALF THAT 

; CANNOT POSSIBLY CONTAIN VALUE (BECAUSE OF ORDERING) 
73) CONTINUE IF THERE IS ANYTHING LEFT TO SEARCH 
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MOV BX,DI 7ADD LOWER AND UPPER BOUNDS 
ADD BX,SI 7NOTE THIS COULD PRODUCE A CARRY 
SHR BX,1 ;DIVIDE SUM CINCLUDING CARRY) BY 2 TO 
ADC BX ,0 7 FIND ADDRESS OF MIDDLE ELEMENT, THEN 
7 ROUND UPWARD BY ADDING CARRY TO 
7 QUOTIENT 


, 
71F ADDRESS OF MIDDLE ELEMENT IS GREATER THAN UPPER BOUND, 
7 THEN ELEMENT IS NOT IN ARRAY 


a 

CMP BX,DI 7COMPARE ADDRESS OF MIDDLE ELEMENT TO 
7 UPPER BOUND 

JA NOTFND 7BRANCH (NOT FOUND) IF INDEX GREATER 


7 THAN UPPER BOUND 


, 
71F ADDRESS OF MIDDLE ELEMENT IS LESS THAN LOWER BOUND, THEN 
7 ELEMENT IS NOT IN ARRAY 


a 

CMP BX,SI 7COMPARE ADDRESS OF MIDDLE ELEMENT TO 
7 LOWER BOUND 

JB NOTFND 7BRANCH (NOT FOUND) IF INDEX LESS 


7 THAN LOWER BOUND 


7CHECK IF MIDDLE ELEMENT IS THE VALUE BEING SOUGHT 


7 

CMP AL, CBX] 7COMPARE ELEMENT WITH VALUE SOUGHT 
JA RPLCLW 7BRANCH IF VALUE LARGER THAN ELEMENT 
JE FOUND 7BRANCH IF VALUE FOUND 


;NOTE CARRY = QO IN THIS CASE 


7 
7VALUE IS SMALLER THAN ELEMENT AT MIDDLE ADDRESS 
7MAKE MIDDLE ADDRESS - 1 INTO NEW UPPER BOUND 


a 
DEC BX 7SUBTRACT 1 SINCE VALUE CAN ONLY BE 
7 FURTHER DOWN 
MOV DI ,BX 7SAVE MIDDLE ADDRESS - 1 AS UPPER BOUND 


JMP SRLOOP 7CONTINUE SEARCHING 


a 
7VALUE IS LARGER THAN ELEMENT AT MIDDLE ADDRESS 
7MAKE MIDDLE ADDRESS + 1 INTO NEW LOWER BOUND 


e 
a 


INC BX 7;ADD 1 SINCE VALUE CAN ONLY BE FURTHER UP 
MOV S$1,BX 7SAVE MIDDLE ADDRESS + 1 AS LOWER BOUND 
JMP SRLOOP CONTINUE SEARCHING 


7 
7EXIT WITH CARRY INDICATING SUCCESS OR FAILURE 


, 
STC 7SET CARRY, INDICATING VALUE NOT FOUND 


RET 


ue 


, 
SC6E: 


7 
7 DATA 


a 
BSIZE 
BUFSZ 
BUFFER 
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SAMPLE EXECUTION 


7SEARCH FOR A VALUE THAT IS IN THE ARRAY 


MOV BX,OFFSET BUFFER ;GET BASE ADDRESS OF BUFFER 
PUSH BX 

MOV AX,CBUFSZ] ;GET ARRAY SIZE IN BYTES 

PUSH AX 

MOV AL,7 7GET VALUE TO FIND 

PUSH AX 7NOTE UNUSED HIGH BYTE HERE 

CALL BINSCH 7BINARY SEARCH 


7CARRY = O (VALUE FOUND) 
7BX = ADDRESS OF 7 IN ARRAY (BUFFER + 4) 


7SEARCH FOR A VALUE THAT IS NOT IN THE ARRAY 


MOV BX,OFFSET BUFFER ;GET BASE ADDRESS OF BUFFER 
PUSH BX 
MOV AX,CBUFSZ] ;GET ARRAY SIZE IN BYTES 
PUSH AX 
SUB AL,AL 7GET VALUE TO FIND (ZERO) 
PUSH AX 7NOTE UNUSED HIGH BYTE HERE 
CALL BINSCH 7BINARY SEARCH 
7CARRY = 1 (VALUE NOT FOUND) 
JMP SC6E 7LOOP FOR MORE TESTS 
EQU 10H 7SIZE OF BUFFER IN BYTES 
DW BSIZE 7SIZE OF BUFFER IN BYTES 
DB 1 7 BUFFER 
DB 2 
DB 4 
DB 5 
DB v 
DB 9 
DB 10 
DB 11 
DB 23 
DB 50 
DB 81 
DB 123 
DB 191 
DB 199 
DB 250 
DB 255 
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6F Shell sort 
(SSORT) 


Arranges an array of unsigned word-length elements into ascending 
order using a Shell sort. Each iteration sorts a subset of the array 
consisting of elements separated by a gap or increment. A Shell sort is 
intermediate in efficiency between a crude insertion or bubble sort and a 
quicksort. 


Procedure ‘The program first deals with subsets of the array consisting 
of elements separated by a large gap. It then reduces the size of the gap 
between elements until it reaches 1. The idea here is that sorting subsets 
puts most elements in the proper order by the time the entire array must 
be handled. Shell’s method is efficient because later sorts (with smaller 
gaps) never undo the ordering of earlier sorts (with larger gaps). This 
has been proved mathematically. 

The program follows Shell’s original suggestion of starting with a gap 


one-half the size of the array and dividing it in half (with truncation) 


after each iteration. Knuth (see the references) describes other methods 
of generating gaps; since none has been proved to be superior in all 
cases, we have chosen the simplest approach. 


Entry conditions 


Base address of array in BX 
Number of elements in AX 


Exit conditions 


Array sorted into ascending order, considering the elements as unsigned 
words. Thus, the smallest unsigned word ends up stored starting at the 
base address. 


Example 


Data: Array size = 0Ci¢ = 1240 
Elements = 2Bi6, 5716; 1D46, 2616; 
2216, 2E16, OCi6, 4416, 
1716, 4B16, 3716, 2716 
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Result: In the first iteration, the step is size/2 = 6 
Ordering elements separated by 6 gives: 
OCi6, 4416, 1716, 2616, 
2216, 2716, 2B16, 5716, 
1D 46, 4B16, 3716, 2E16 
In the second iteration, the step is half the previous step (3) 
Ordering elements separated by 3 gives: 
OCi6, 2216, 1716, 2616, 
3716, 1D16, 2Bi6, 4416, 
2716, 4B16, 5716, 2E16 
In the third iteration, the step is half the previous step with trunca- 
tion (1). 
Finally, ordering elements separated by 1 gives: 
OCi6, 1716, 1D 16, 2216, 
2616, 2716, 2Bi6, 2Ej6, 
3716, 4416, 4Bi6, 5716 





References 


D. E. Knuth, The Art of Computer Programming. Vol. 3: Searching and 
Sorting, Addison-Wesley, Reading, MA, 1973, pp. 84-95. 

Y. Langsam et al., Data Structures for Personal Computers, Prentice- 
Hall, Englewood Cliffs, NJ, 1985, pp. 459-462. The algorithms in this 
book are available as BASIC programs on disk for various computers. 
Other versions of the book are available for PL/I and Pascal. 





Registers used AX, BX, CX, DI, DX, F, SI 


Execution time Approximately 79 cycles per comparison. The 
number of comparisons has been proved to be proportional to N xX 
(log, N)* where N is the number of elements. In practice, the program 
took the following amounts of time on a 4.77 MHz IBM PC (using an 
8-bit 8088 chip): 


5s for 8K words 
11s for 16K words 
17 s for 24K words 
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Program size 63 bytes 


Data memory required 8 stack bytes 


Title Shell sort 
Name: SSORT 
Purpose: Arrange an array of unsigned words into 


ascending order using a Shell sort 


Entry: Base address of array in register BX 


Size of array in words in register AX 


Exit: Array sorted into ascending order. 
Registers Used: AX,BX,CX,DI,DX,F,SI 


Time: Approximately 79 cycles per comparison. 


The number of comparisons is proportional to 
N X (Clog N)“2 where N is the size of the array. 


For example, sorting a 16,384-word array took 
about 11 s on an IBM PC with a 4.77 MHz 8088. 


Size: Program 63 bytes 


7 
zEXIT IF NO SORTING NECESSARY (LESS THAN 2 ELEMENTS 
7 IN ARRAY) 


av 
CMP AX,2 7EXIT IF LENGTH LESS THAN 2 
JB SRTEND 7 (NO SORTING NECESSARY) 


a 
7 SAVE ARRAY LENGTH AT TOP OF STACK 


, 
PUSH BP 7;SAVE OLD BASE POINTER 
PUSH AX 7 SAVE ARRAY LENGTH 


MOV BP,SP 7POINT TO ARRAY LENGTH 


a 
7START GAP AT ARRAY LENGTH 
;NEXT GAP IS PREVIOUS GAP DIVIDED BY 2 WITH TRUNCATION 


ao 

MOV DX ,AX 7 INITIAL GAP = ARRAY LENGTH 

SHR DX,1 7NEXT GAP IS PREVIOUS GAP DIVIDED 
7 BY 2 WITH TRUNCATION 

JZ REMLNG 7DONE SORTING IF GAP IS ZERO 


7 
7SORT SUBSETS OF ELEMENTS SEPARATED BY CURRENT GAP 
7USE SIMPLE INSERTION SORT ON EACH SUBSET 


NXTSUB: 


NXTPR: 


ENDPRT: 


REMLNG: 


SRTEND: 
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7SORT EACH SUBSET AS FAR AS TOP UPPER INDEX 
;CONTINUE UNTIL TOP UPPER INDEX BEYOND END OF ARRAY 


a 

MOV CX,DX 7START TOP UPPER INDEX AT GAP-1 

DEC Cx 

INC Cx 7;ADD 1 TO TOP UPPER INDEX FOR NEXT 
, SUBSET 

CMP CX,CBPI 7CHECK IF TOP UPPER INDEX IN ARRAY 

JAE NXTGAP 7BRANCH IF TOP UPPER INDEX BEYOND 


7 END OF ARRAY 
7ALL SUBSETS WITH CURRENT GAP ARE 
7 SORTED WHEN THIS HAPPENS 


, 

;SORT SUBSET WITH GIVEN GAP UP TO TOP UPPER INDEX 
7USE STANDARD INSERTION METHOD, EXCHANGING ELEMENTS 
7 WHEN NECESSARY 


PUSH BX 7 SAVE BASE ADDRESS OF ARRAY 

PUSH Cx 7SAVE TOP UPPER INDEX 

MOV DI,CX 7POINT TO TOP ELEMENT IN SUBSET 

SHL DI,1 ; OF WORD-LENGTH ELEMENTS 

ADD DI ,BX 

MOV BX,CDI] 7GET TOP ELEMENT 

SUB CX ,DX 7CHECK IF THERE IS ANOTHER ELEMENT 
7 FURTHER DOWN IN SUBSET 

JB ENDPRT 7JUMP IF NO MORE ELEMENTS, HENCE 
7 SUBSET IS SORTED 

MOV S1,DI 7COMPARE NEXT PAIR OF ELEMENTS 
7 SEPARATED BY GAP 

SUB DI,DX 7STEP IS GAP X 2 SINCE ELEMENTS ARE 

SUB DI,DX 7 WORD-LENGTH 

MOV AX, COI] 7COMPARE NEXT PAIR OF ELEMENTS 

CMP AX , BX 

JBE ENDPRT 7DONE IF PAIR IN ORDER SINCE LATER 
7 PAIRS HAVE ALREADY BEEN SORTED 

MOV CD11 ,BX 7EXCHANGE PAIR IF OUT OF ORDER 

MOV CS11,AX 7TOP ELEMENT STAYS THE SAME FOR NEXT 
7 COMPARISON 

JMP NXTPR 7CONTINUE THROUGH PARTIAL SUBSET 

POP CX RESTORE TOP UPPER INDEX 

POP BX 7RESTORE BASE ADDRESS OF ARRAY 

JMP NXTSUB 7PROCEED TO NEXT PARTIAL SUBSET 


7CLEAN STACK AND EXIT 


a 
a 


POP AX 7REMOVE ARRAY LENGTH FROM STACK 
POP BP 7RESTORE BASE POINTER 


RET 7 EXIT 
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SAMPLE EXECUTION 


7SORT AN ARRAY BETWEEN BEGBUF (FIRST 
7 AND ENDBUF (LAST ELEMENT) 


ELEMENT) 


a 
MOV BX,OFFSET BEGBUF ;GET BASE ADDRESS OF ARRAY 
MOV AX, CSZARY] 7GET SIZE OF ARRAY IN WORDS 
CALL SSORT 7SORT USING SHELL SORT 
7RESULT FOR TEST DATA IS 
7 0,1,2,3, wee 714,15 
JMP SC6F 7LOOP TO REPEAT TEST 


7DATA SECTION 


a 
BEGBUF 


SZARY 


DW 15 
DW 14 
DW 13 
DW 12 
DW 11 
DW 10 
DW 9 
DW 8 
DW 7 
DW 6 
DW 5 
DW 4 
DW 3 
DW 2 
DW 1 
DW 0 
DW 16 


7SIZE OF ARRAY IN WORDS 


6G Quicksort (QSORT) 213 


6G Quicksort 
(QSORT) 


Arranges an array of unsigned word-length elements into ascending 
order using a quicksort algorithm. Each iteration selects an element and 
divides the array into two parts, one containing all elements larger than 
the selected element and the other containing all elements smaller than 
the selected element. Elements equal to the selected element may end up 
in either part. The parts are then sorted recursively in the same way. The 
algorithm continues until all parts contain either no elements or only one 
element. An alternative is to stop recursion when a part contains few 
enough elements (say, less than 20) to make a bubble sort practical. 

The parameters are the array’s base address, the address of its last 
element, and the lowest available stack address. The array can thus 
occupy all available memory, as long as there is room for the stack. Since 
the procedures that obtain the selected element, compare elements, 
move forward and backward in the array, and swap elements are all 
subroutines, they could be changed readily to handle other types of 
elements. 

Ideally, quicksort should divide the array in half during each iteration. 
How closely the procedure approaches this ideal depends on how well the 
selected element is chosen. Since this element serves as a midpoint or 
pivot, the best choice woulld be the central value (or median). Of course, 
the true median is unknown. A simple but reasonable approximation is to 
select the median of the first, middle, and last elements. 


Procedure The program first deals with the entire array. It selects the 
median of the current first, middle, and last elements as a central 
element. It moves that element to the first position and divides the array 
into two parts or partitions. It then operates recursively on the parts, 
dividing them into parts and stopping when a part contains no elements or 
only one element. Since each recursion places 6 bytes on the stack, the 
program must guard against overflow by checking whether the stack has 
reached to within a small buffer of its lowest available position. 

Note that the selected element always ends up in the correct position 
after an iteration. Therefore, it need not be included in either partition. 

Our rule for choosing the middle element is as follows, assuming that 
the first element 1s #1: 


1. Ifthe array has an odd number of elements, take the centre one. For 
example, if the array has 11 elements, take #6. 
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2. Ifthe array has an even number of elements and its base address is 
even, take the element on the lower (base address) side of the centre. For 
example, if the array starts in 0300,. and has 12 elements, take #6. 


3. If the array has an even number of elements and its base address is 
odd, take the element on the upper side of the center. For example, if the 
array Starts in 0301;.¢ and has 12 elements, take #7. 





Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of base address of array 
High byte of base address of array 


Low byte of address of last word in array 
High byte of address of last word in array 


Low byte of lowest possible stack address 
High byte of lowest possible stack address 


Exit conditions 


Array sorted into ascending order, considering the elements as unsigned 
words. Thus, the smallest unsigned word ends up stored starting at the 
base address. Carry = 0 if the stack did not overflow and the result is 
proper. Carry = 1 if the stack overflowed and the final array is not sorted. 


Example 


Data: Length (size) of array = 0Ci¢ = 1210 
Elements = 2Bie, 5716; 1Di6, 2616; 
2216, 2E16, OCy6, 4416, 
1716, 4B6, 3716, 2716 
Result: In the first iteration, we have: 
Selected element = median of the first (#1 = 2Bi¢), middle (#6 
= 2Ei¢6), and last (#12 = 2716) elements. The selected element 
is therefore #1 (2B16), and no swapping is necessary since it is 
already in the first position. 
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At the end of the iteration, the array is 

2716, 1716, 1D16, 2616, 

2216, 0Ci6, 2Bi6, 4416, 

2E16, 4Bi6, 3716, 5716 
The first partition, consisting of elements less than 2Bi¢, is 2716, 
1716, 1D16, 2616, 2216, and 0Cj6. 
The second partition, consisting of elements greater than 2By., is 
4416, 2E16, 4B16, 3716, and 5716. 
Note that the selected element (2Bj¢) is now in the correct position 
and need not be included in either partition. 
We may now sort the first partition recursively in the same way: 
Selected element = median of the first (#1 = 2716), middle (#3 = 
1D 6), and last (#6 = 0Ci.¢) elements. Here, #3 is the median and 
must be exchanged initially with #1. 
The final order of the elements in the first partition is: 

OCi6, 1716, 1D16, 2616, 

2216, 2716 
The first partition of the first partition (consisting of elements less 
than 1D46) is OCi6, 1716. We will call this the (1,1) partition for 
short. 
The second partition of the first partition (consisting of elements 
greater than 1D4¢) is 2616, 2216, and 2746. 
As in the first iteration, the selected element (1Dj¢) is in the correct 
position and need not be considered further. 
We may now sort the (1,1) partition recursively as follows: 
Selected element = median of the first (#1 = 0Ci.), middle (#1 = 
OC;.6), and last (#2 = 1716) elements. Thus the selected element is 
the first element (#1 = 0C,¢), and no initial swap is necessary. 
The final order is obviously the same as the initial order, and the 
two resulting partitions contain 0 and 1 element, respectively. Thus 
the next iteration concludes the recursion; and we then sort the 
other partitions by the same method. Obviously, quicksort’s over- 
head becomes a major factor for arrays containing only a few 
elements. This is why one might use a bubble sort once quicksort 
has created small enough partitions. 
Note that the example array does not contain any identical ele- 
ments. During an iteration, elements that are the same as the 
selected element are never moved. Thus they may end up in either 
partition. Strictly speaking, then, the two partitions consist of ele- 
ments ‘less than or possibly equal to the selected element’ and 
elements ‘greater than or possibly equal to the selected element.’ 
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References 


N. Dale and S. C. Lilly, Pascal Plus Data Structures, D. C. Heath, 
Lexington, MA, 1985, pp. 300-307. 

D.E. Knuth, The Art of Computer Programming. Vol. 3: Searching and 
Sorting, Addison-Wesley, Reading, MA, 1973, pp. 114-123. 

Y. Langsam et al., Data Structures for Personal Computers, Prentice- 
Hall, Englewood Cliffs, NJ, 1985, pp. 430-437. The algorithms in this 
book are available as BASIC programs for various computers. Other 
versions of the book are available for Pascal and PL/I. 


Registers used AX, BX, DI, DX, F, SI 


Execution time Approximately N x log. N loops through PARTLP 
plus 2 x N + 1 overhead calls to SORT. Each iteration of PARTLP 
takes approximately 65 or 150 cycles (depending on whether an 
exchange is necessary), and each overhead call to SORT takes approxi- 
mately 340 cycles. Thus the total execution time is on the order of 


107 x N X log2 N + 340 x (2 X N+ 1) cycles 


If, for example, N = 16384 (21%), the total execution time should be 
around 


107 X 16384 x 14 + 340 x 32769 = 24500000 + 11 100000 = 
about 35 600 000 cycles. 


This is about 7 s at a typical 8086 clock rate of 5 MHz. 


Program size 179 bytes 


Data memory required 8 bytes anywhere in RAM for pointers to the 
first and last element of a partition (2 bytes starting at addresses FIRST 
and LAST, respectively), a pointer to the bottom of the stack (2 bytes 
starting at address STKBTM), and the original value of the stack poin- 
ter (2 bytes starting at address OLDSP). Each recursion level requires 6 
bytes of stack space, and the routines themselves require another 4 
bytes. 
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Special case If the stack overflows (i.e. comes too close to its boun- 
dary), the program exits with Carry set to 1. 


; Title Quicksort 
; Name: QSORT 
7 
Purpose: Arrange an array of unsigned words into 


ascending order using a quicksort, with a 
maximum size of 32767 words. 


Entry: TOP OF STACK 

Low byte of return address 

High byte of return address 

Low byte of address of first word in array 
High byte of address of first word in array 
Low byte of address of last word in array 
High byte of address of last word in array 
Low byte of lowest available stack address 
High byte of Lowest available stack address 


Exit: If the stack did not overflow then 
The array is sorted into ascending order. 
Carry = 0 
Else 
Carry = 1 


we Me We Ne Ne Ws Ne We Ne Ns Ne Vs We We We Ne Ve Ne Ne Ne Vs 


Registers Used: AX,BX,CX,DI,DX,F,SI 


Time: The timing is highly data-dependent but the 
quicksort algorithm takes approximately 
N X log (N) Loops through PARTLP. There will be 

2 

2 X N+1 calls to Sort. The number of recursions 
will probably be a fraction of N but if all 
data is the same, the recursion could be up to 
N. Therefore, the amount of stack space should 
be maximized. NOTE: Each recursion Level takes 
6 bytes of stack space. 


In the above discussion, N is the number of 
array elements. 


SD Ne Me Ne We We Ns Ne Ne We Ne Ne Ne Ne Ne Ne Ne Ne Ne 


Size: Program 179 bytes 
Data 8 bytes 
SORT: 
POP DX ;SAVE RETURN ADDRESS 


a 

7WATCH FOR STACK OVERFLOW 

7CALCULATE A THRESHOLD TO WARN OF OVERFLOW 

7 (10 BYTES FROM THE END OF THE STACK) 

7SAVE THIS THRESHOLD FOR LATER COMPARISONS 

7ALSO SAVE THE POSITION OF THIS ROUTINE'S RETURN ADDRESS 
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7 IN THE EVENT WE MUST ABORT BECAUSE OF STACK OVERFLOW 


a 

POP DI 7GET ADDRESS OF LAST ELEMENT 

POP SI 7GET ADDRESS OF FIRST ELEMENT 

POP BX 7GET ADDRESS OF END OF STACK SPACE 

PUSH DX 7PUT RETURN ADDRESS BACK IN STACK 

MOV COLDSP1,SP ;SAVE CURRENT STACK POINTER IN CASE 
7 WE MUST ABORT 

ADD BX,10 7ADD 10 BYTE BUFFER TO STACK END 

MOV CSTKBTM],BX ;SAVE STACK THRESHOLD FOR LATER 


7 COMPARISONS 


7 

7WORK RECURSIVELY THROUGH THE QUICKSORT ALGORITHM AS 

7 FOLLOWS: 

7 1. CHECK IF THE PARTITION CONTAINS O OR 71 ELEMENT. 

; MOVE UP A RECURSION LEVEL IF IT DOES. 

7 2. USE MEDIAN TO OBTAIN A REASONABLE CENTRAL VALUE 

; FOR DIVIDING THE CURRENT PARTITION INTO TWO 

; PARTS. 

7 3. MOVE THROUGH THE ARRAY SWAPPING ELEMENTS THAT 

; ARE OUT OF ORDER UNTIL ALL ELEMENTS BELOW THE 

; CENTRAL VALUE ARE AHEAD OF ALL ELEMENTS ABOVE 

; THE CENTRAL VALUE. SUBROUTINE COMPARE 

; COMPARES ELEMENTS, SWAP EXCHANGES ELEMENTS, 

; PREV MOVES UPPER BOUNDARY DOWN ONE ELEMENT, 

; AND NEXT MOVES LOWER BOUNDARY UP ONE ELEMENT. 

7 4. CHECK IF THE STACK IS ABOUT TO OVERFLOW. IF IT 

; IS, ABORT AND EXIT. 

7 3» ESTABLISH THE BOUNDARIES FOR THE FIRST PARTITION 
; (CONSISTING OF ELEMENTS LESS THAN THE CENTRAL VALUE) 
; AND SORT IT RECURSIVELY. 

7 6. ESTABLISH THE BOUNDARIES FOR THE SECOND PARTITION 
; (CONSISTING OF ELEMENTS GREATER THAN THE CENTRAL 
; VALUE) AND SORT IT RECURSIVELY. 

a 


a 
7 SAVE BASE ADDRESS AND ADDRESS OF LAST ELEMENT 
7 IN CURRENT PARTITION 


a 
MOV CFIRSTI,SI 7 SAVE BASE ADDRESS 
MOV CLASTI,DI 7SAVE ADDRESS OF LAST ELEMENT 


7 

7CHECK IF PARTITION CONTAINS O OR 1 ELEMENTS 
7 IT DOES IF FIRST IS EITHER LARGER THAN (0) 
7 OR EQUAL TO (1) LAST. 


ao 
7STOP WHEN FIRST >= LAST 


a 

CMP SI,CLASTI 7COMPARE FIRST AND LAST 

JAE EXITPR 7RETURN IF FIRST >= LAST 
7THIS PART IS SORTED 


7START ANOTHER ITERATION ON THIS PARTITION 
7USE MEDIAN TO FIND A REASONABLE CENTRAL ELEMENT 
7MOVE CENTRAL ELEMENT TO FIRST POSITION 


PARTLP: 


REDPRT: 
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a 

CALL MEDIAN 7SELECT CENTRAL ELEMENT, MOVE IT 
7 TO FIRST POSITION 

MOV BX ,0 7BIT O OF REGISTER BX = DIRECTION 


, IF IT IS O THEN DIRECTION IS UP 
7 ELSE DIRECTION IS DOWN 


a 

7REORDER ARRAY BY COMPARING OTHER ELEMENTS WITH THE 
CENTRAL ELEMENT. START BY COMPARING THAT ELEMENT WITH 
LAST ELEMENT. EACH TIME WE FIND AN ELEMENT THAT 

BELONGS IN THE FIRST PART (THAT IS, IT IS LESS THAN 

THE CENTRAL ELEMENT), SWAP IT INTO THE FIRST PART IF IT 
IS NOT ALREADY THERE AND MOVE THE BOUNDARY OF THE 

FIRST PART DOWN ONE ELEMENT. SIMILARLY, EACH TIME WE 
FIND AN ELEMENT THAT BELONGS IN THE SECOND PART (THAT 
IS, IT IS GREATER THAN THE CENTRAL ELEMENT), SWAP IT 
INTO THE SECOND PART IF IT IS NOT ALREADY THERE AND MOVE 
THE BOUNDARY OF THE SECOND PART UP ONE ELEMENT. 
,ULTIMATELY, THE BOUNDARIES COME TOGETHER 

7 AND THE DIVISION OF THE ARRAY IS THEN COMPLETE 

7NOTE THAT ELEMENTS EQUAL TO THE CENTRAL ELEMENT ARE NEVER 
7 SWAPPED AND SO MAY END UP IN EITHER PART 


we 


we We Ys Ne We Ns Ns Ve Ve 


7 
7LOOP SORTING UNEXAMINED PART OF PARTITION 
7 UNTIL THERE IS NOTHING LEFT IN IT 


a 
CMP SI,D0I 7COMPARE FIRST TO LAST 
JAE DONE 7EXIT WHEN EVERYTHING EXAMINED 


, 

7COMPARE NEXT 2 ELEMENTS. IF OUT OF ORDER, SWAP THEM 
7AND CHANGE DIRECTION OF SEARCH 

7 IF FIRST > LAST THEN SWAP 


a 

MOV AX, CSI] 7GET FIRST ELEMENT 

CMP AX, CDI] 7COMPARE FIRST TO LAST ELEMENT 
JBE REDPRT 7JUMP IF IN ORDER 


a 


7ELEMENTS OUT OF ORDER, SWAP THEM AND CHANGE DIRECTION 


a 
NOT BX 7 CHANGE DIRECTION 
CALL SWAP 7 SWAP ELEMENTS 


a 

7REDUCE SIZE OF UNEXAMINED AREA 

71F NEW ELEMENT LESS THAN CENTRAL ELEMENT, MOVE 

7 TOP BOUNDARY DOWN 

71F NEW ELEMENT GREATER THAN CENTRAL ELEMENT, MOVE 
7 BOTTOM BOUNDARY UP 

7 IF ELEMENTS EQUAL, CONTINUE IN LATEST DIRECTION 


a 
a 


TEST BX ,BX 7CHECK DIRECTION 
JZ UP 7JUMP IF MOVING UP 
CALL NEXT 7MOVE TOP BOUNDARY DOWN ONE ELEMENT 


JMP PARTLP 7JUMP TO CHECK NEXT ELEMENT 
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CALL PREV 7MOVE BOTTOM BOUNDARY UP ONE ELEMENT 
JMP PARTLP 


a 

7THIS PARTITION HAS NOW BEEN SUBDIVIDED INTO TWO 
PARTITIONS. ONE STARTS AT THE TOP AND ENDS JUST 
ABOVE THE CENTRAL ELEMENT. THE OTHER STARTS 
JUST BELOW THE CENTRAL ELEMENT AND CONTINUES 

TO THE BOTTOM. THE CENTRAL ELEMENT IS NOW IN 
ITS PROPER SORTED POSITION AND NEED NOT BE 
INCLUDED IN EITHER PARTITION 


we Ne Ne Bs RNs Ve Va 


7 

7 FIRST CHECK WHETHER STACK MIGHT OVERFLOW 

7IF IT IS GETTING TOO CLOSE TO THE BOTTOM, ABORT 
7 THE PROGRAM AND EXIT 


7 
CMP SP,CSTKBTM] 7COMPARE STACK POINTER TO THRESHOLD 
JB ABORT 7 ABORT IF STACK IS TOO LARGE 


a 

7 ESTABLISH BOUNDARIES FOR FIRST CLOWER) PARTITION 
7LOWER BOUNDARY IS SAME AS BEFORE 

7UPPER BOUNDARY IS ELEMENT JUST BELOW CENTRAL ELEMENT 
7THEN RECURSIVELY QUICKSORT FIRST PARTITION 


a 

MOV DI,CLAST] ;GET UPPER BOUNDARY 

PUSH SI 7 SAVE CENTRAL AND LAST ADDRESS 

PUSH DI 

TEST SI,SI 7CHECK IF CENTRAL ELEMENT IS AT 
; LOWER BOUNDARY 

JZ SKPDEC 700 NOT MOVE POINTER DOWN IF 
; ALREADY AT ZERO 

MOV DI,SI 7CALCULATE LAST ELEMENT FOR FIRST 
; PASS 

CALL PREV 7LAST = ELEMENT JUST BELOW CENTRAL 
3; ELEMENT 

MOV SI,CFIRSTIJ , LOWER BOUNDARY IS SAME AS BEFORE 


CALL SORT 7QUICKSORT FIRST PART 


a 

zESTABLISH BOUNDARIES FOR SECOND (UPPER) PARTITION 
7UPPER BOUNDARY IS SAME AS BEFORE 

7LOWER BOUNDARY IS ELEMENT JUST ABOVE CENTRAL ELEMENT 
7 THEN RECURSIVELY QUICKSORT SECOND PARTITION 


a 

POP DI 7GET FIRST AND LAST FOR SECOND PASS 

POP SI 

CALL NEXT 7LOWER BOUNDARY = ELEMENT JUST ABOVE 
7 CENTRAL ELEMENT 

CALL SORT ,QUICKSORT SECOND PART 

CLC 7CLEAR CARRY, INDICATING NO ERRORS 

RET 7GOOD EXIT 


7 
7ERROR EXIT, SET CARRY TO 1 


ABORT: 
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MOV SP,COLDSP] 7GET ORIGINAL STACK POINTER 
STC 7 INDICATE ERROR 
RET sRETURN WITH ERROR INDICATOR TO 


7 ORIGINAL CALLER 


ZEREREREKKEKEEKEEEKEEKEKEKREKEEKEEEREREEEEEEKEEEEREKEKKKKKKKK 


;ROUTINE: 
;PURPOSE: 
SHOULD BE USED AS THE CENTRAL ELEMENT OR PIVOT 
ADDRESS OF FIRST ELEMENT IN REGISTER SI 
ADDRESS OF LAST ELEMENT IN REGISTER DI 

CENTRAL ELEMENT IN FIRST POSITION 

SI,DI UNCHANGED 

RS USED: AX,BX,F 


s 
a 


7 ENTRY: 


es 
a 


;EXIT: 


v 
;REGISTE 


MEDIAN 
DETERMINE WHICH ELEMENT IN A PARTITION 


Z RRR EREKREREKEKEEEEEEKERERE EE EEEEEEKEEREREEKKKKKKKKK 


MEDIAN: 


, 
7DETERMINE ADDRESS OF MIDDLE ELEMENT 
7 MIDDLE := ALIGNEDCFIRST + LAST) DIV 2 


a 

MOV DX,DI 7 SAVE ADDRESS OF LAST 

MOV AX,DI 7ADD FIRST TO LAST 

ADD AX,SI 7NOTE THIS COULD PRODUCE A CARRY 
RCR AX,1 ;DIVIDE SUM CINCLUDING CARRY) BY 2 
AND AX,OFFFEH 7CLEAR LOWEST BIT TO ALIGN CENTRAL 
MOV BX ,AX 7 SAVE CENTRAL ADDRESS 

MOV AX,SI 7GET ADDRESS OF FIRST 

AND AX,1 7CLEAR ALL BUT LOWEST BIT 

ADD BX ,AX 7ADD TO CENTRAL TO ALIGN ADDRESSES 


’ 
7DETERMINE MEDIAN OF FIRST, MIDDLE, LAST ELEMENTS 
7COMPARE FIRST AND MIDDLE 


a 
MOV AX, CST] 7GET FIRST ELEMENT 
CMP AX, CBX] 7 COMPARE FIRST AND MIDDLE 


JAE MIDD1 7 JUMP IF FIRST IS >= MIDDLE 


7 
7WE KNOW (MIDDLE > FIRST) 
7 SO COMPARE MIDDLE AND LAST 


MOV AX, CDI] 7GET LAST ELEMENT 
CMP AX, CBX] 7COMPARE LAST TO MIDDLE 


JAE SWAPMF 7JUMP IF LAST IS >= MIDDLE 


a 
7WE KNOW (MIDDLE > FIRST) AND (MIDDLE > LAST) 
7 SO COMPARE FIRST AND LAST (MEDIAN IS LARGER ONE) 


7 

CMP AX, CSI] 7 COMPARE LAST TO FIRST 

JA SWAPLF 7JUMP IF LAST > FIRST 

JMP MEXIT 7EXIT IF FIRST IS >= LAST 


7FIRST IS MEDIAN 


7WE KNOW FIRST >= MIDDLE 
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790 COMPARE FIRST AND LAST 


a 


MIDD1: 
MOV AX, CDI] 7 COMPARE LAST TO FIRST 
CMP AX, CST] 7EXIT IF LAST >= FIRST 
JAE MEXIT 7FIRST IS MEDIAN 
, 
7WE KNOW CFIRST >= MIDDLE) AND (FIRST > LAST) 
7 SO COMPARE MIDDLE AND LAST (MEDIAN IS LARGER ONE) 
7 
CMP AX, CBX] 7 COMPARE LAST TO MIDDLE 
JA SWAPLF 7JUMP IF LAST > MIDDLE 
, LAST IS MEDIAN 
7MIDDLE IS MEDIAN, MOVE ITS POINTER TO LAST 
SWAPMF: 
MOV DI ,BX 7MOVE MIDDLE'S POINTER TO LAST 
, 
7 LAST IS MEDIAN, SWAP IT WITH FIRST 
SWAPLF: 
CALL SWAP 7 SWAP LAST, FIRST 
, 
7RESTORE LAST AND EXIT 
, 
MEXIT: 
MOV DI,DX 7RESTORE ADDRESS OF LAST ELEMENT 
RET 


HK I II KIKI KIKI KEI IARI KIKI EERE RIKER 
7ROUTINE: SWAP 

7PURPOSE: SWAP ELEMENTS POINTED TO BY SI,DI 
7ENTRY: SI = ADDRESS OF ELEMENT 1 

; DI = ADDRESS OF ELEMENT 2 

7EXIT: ELEMENTS SWAPPED 

,REGISTERS USED: AX 

ZHI I III III IK IIHR II HIRI KIKI AAE RARER 


SWAP: 
MOV AX,CSTI] ;GET FIRST ELEMENT 
XCHG AX, COI] 7;EXCHANGE WITH LAST ELEMENT 
MOV CSI],AX 7PUT LAST ELEMENT IN FIRST POSITION 
RET 


SIKH IKKE IIT RIK EI KIER IERIE AREER ERE 
7ROUTINE: NEXT 

;PURPOSE: MAKE SI POINT TO NEXT ELEMENT 
zENTRY: SI = ADDRESS OF CURRENT ELEMENT 
zEXIT: SI = ADDRESS OF NEXT ELEMENT 
REGISTERS USED: F,SI 

FHI IRIE ERIK RE EREEERERRERKEEREERKEE KKK 


NEXT: 
INC SI 7MOVE POINTER TO NEXT ELEMENT 


6G Quicksort (QSORT) 


INC SI 
RET 


ZRRRKKKEKREREKEEEREEEREREKREKEEEKEEKEKKEKKKKKEKEKE 


;ROUTINE: 
7PURPOSE: 
7ENTRY: 


7EXIT: 


PREV 

MAKE DI POINT TO PREVIOUS ELEMENT 
= ADDRESS OF CURRENT ELEMENT 

= ADDRESS OF PREVIOUS ELEMENT 


7REGISTERS USED: DI,F 
FI IKI TKI KIT II RII KIKI TTI RI TTI RIKI TIARA ITI ITI 


PREV: 


DEC DI 7MOVE POINTER TO PREVIOUS ELEMENT 
DEC DI 
RET 


, 
7DATA SECTION 


a 
FIRST 
LAST 
OLDSP 


STKBTM 


DW 0 ;POINTER TO FIRST ELEMENT OF. PART 

DW 0 ;POINTER TO LAST ELEMENT OF PART 

DW 0 ;POINTER TO ORIGINAL RETURN ADDRESS 
; (INITIAL STACK POINTER) | 

DW 0 ; THRESHOLD FOR STACK OVERFLOW 


SAMPLE EXECUTION 


7 
7PROGRAM SECTION 


SC6G: 


, 

7;SORT AN ARRAY BETWEEN BEGBUF (FIRST ELEMENT) 
; AND ENDBUF (LAST ELEMENT) 

;LET STACK EXPAND 1000 HEX BYTES 


MOV BX,SP sGET CURRENT STACK ADDRESS 

SUB BX,1000H ;SUBTRACT 1000 HEX TO SPECIFY END OF 
PUSH BX s STACK ADDRESS . 

MOV BX,OFFSET BEGBUF ;ADDRESS OF FIRST ELEMENT 

PUSH BX 

MOV BX,OFFSET ENDBUF ;ADDRESS OF LAST ELEMENT 

PUSH BX 

CALL QSORT sSORT USING QUICKSORT 


7RESULT FOR TEST DATA IS 
7 0,1,2,3, «ee 14,15 
JMP SC6G 7LOOP TO REPEAT TEST 


, 
7DATA SECTION 


av 
BEGBUF 


DW 15 
DW 14 
DW 13 


DW 12 
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oOo Oo 
== 
_ = 
Qo = 


o 
= 
Opa NWF uO ~ OOO 


ENDBUF DW 
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6H Merge sort 
(MSORT) 


Merges two lists of unsigned word-length elements into ascending order. 
Both original lists are assumed to be already arranged in ascending 
order. The merged list replaces list 1, the list with the base address 
higher in the stack. 


Procedure The program starts at the end of the expanded list (i.e. 
the extension of list 1 to include the elements of list 2). It repeatedly 
compares the next remaining elements of the two lists, moves the larger 
element into the merged list, and updates the counters and pointers 
appropriately. If there are elements left from the second list when the 
program finishes with the first list, they are moved to the front of the 
expanded list. 


Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of base address of list 1 
High byte of base address of list 1 


Low byte of size of list 1 in words 
High byte of size of list 1 in words 


Low byte of base address of list 2 
High byte of base address of list 2 


Low byte of size of list 2 in words 
High byte of size of list 2 in words 


Exit conditions 


List 1 replaced by list 1 merged with list 2. List 1 is sorted into ascending 
order, considering the elements as unsigned words. Thus, the smallest 
unsigned word ends up stored starting at the base address of list 1. 
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Example 


Data: Length (size) of list 1 = OCig = 1216 
Elements = OD46, 1716, 1Di6, 22165 
2616, 2716, 2B16, 2E16, 
3716, 4416, 4Bi6, 5716 
Length (size) of list 2 = 08 
Elements = OBi6, 1216, 1316, 1716, 
2516, 2D16, 4116, 6216 
Result: Length (size) of list 1 = 1446 = 2049 
Elements = OBie, ODi6, 1216, 1316, 
1716, 1716, 1D46, 22165 
2516, 2616, 2716, 2Bi6, 
2D16, 2E16, 3716, 4116, 
4416, 4Bi6, 5716, 6216 


References 


D. E. Knuth, The Art of Computer Programming. Vol. 3: Searching and 
Sorting, Addison-Wesley, Reading, MA, 1973, pp. 159-170, 198-209. 

Y. Langsam et al., Data Structures for Personal Computers, Prentice- 
Hall, Englewood Cliffs, NJ, 1985, pp. 467-470, 474-476. The 
algorithms in this book are available as BASIC programs for various 
computers. Other versions of the book are available for Pascal and 
PL/I. 


Registers used AX, BX, CX, DI, DX, F (sets D flag), SI 


Execution time Approximately 72 cycles per element plus 120 cycles 
overhead. If, for example, the two lists have 1000 and 250 elements, 
respectively, the execution time is approximately 


72 X (1000 + 250) + 120 = 90 120 cycles 
Program size 56 bytes 


Data memory required None 


=e 


Swe Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne We Ne Ne Ne Ne Ne Ne Ne Ns Ne Ne Ne Ne Ne Ne Ne Ne 
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Special cases 
1. Iflist 1 has zero length, the program simply moves list 2 to list 1. 


2. If list 2 has zero length, the program returns list 1 unchanged. 


Title Merge sort 
Name: MSORT 
Purpose: Merges two lists into one. Both original 


lists and the merged list are arranged 
in ascending order. 


Entry: TOP OF STACK 


Low byte of return address 

High byte of return address 

Low byte of base address of list 1 
High byte of base address of list 1 
Low byte of size of list 1 in words 
High byte of size of list 1 in words 
Low byte of base address of list 2 
High byte of base address of list 2 
Low byte of size of list 2 in words 
High byte of size of list 2 in words 


Exit: List 1 combines its original contents with 


List 2. Combined list is sorted into ascending 
order. 


Registers Used: AX,BX,CX,DI,DX,F (sets D flag),SI 


Time: Approximately 72 cycles per element plus 


120 cycles overhead 


Size: Program 56 bytes 


7REMOVE PARAMETERS FROM STACK 
7EXIT (DONE) IF LIST 2 HAS NO ELEMENTS 


POP BX 7 SAVE RETURN ADDRESS 

POP DI 7GET BASE ADDRESS OF LIST 1 

POP AX 7GET SIZE OF LIST 1 IN WORDS 

POP SI 7GET BASE ADDRESS OF LIST 2 

POP CX 7GET SIZE OF LIST 2 IN WORDS 

PUSH BX 7PUT RETURN ADDRESS BACK ON STACK 
JCXZ EXITMS 7NO MERGE NECESSARY IF LIST 2 HAS 


, NO ELEMENTS 


, 
7SET POINTERS TO LAST ELEMENTS IN LISTS 
7POINTER = BASE ADDRESS OF LIST + 2 X (SIZE OF LIST - 1) 


a 
STD 7,SELECT AUTODECREMENTING 
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CMPNXT: 


MVLST1: 


MVREM: 
REP 
EXITMS: 
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MOV BX ,CX 7POINT TO LAST ELEMENT IN LIST 2 
DEC BX 7POINTER = BASE L2 + 2 X (SIZE L2 - 1) 
SHL BX,1 
ADD $1 ,BX 
MOV DX ,AX 7POINT TO LAST ELEMENT IN MERGED LIST 
SHL DX,1 ;POINTER = BASE L1 + 2 X (SIZE L1 + 
, SIZE L2 - 1) 
ADD BX ,DX 
ADD BX,DI 
XCHG BX,DI 
TEST AX, AX 7TEST LENGTH OF LIST 1 
JZ MVREM 7SIMPLY MOVE LIST 2 TO LIST 1 IF LIST 1 
7 HAS NO ELEMENTS 
DEC DX 7POINT TO LAST ELEMENT IN LIST 1 
DEC DX ;POINTER = BASE L1 + 2 X (SIZE L1 - 1) 
ADD BX ,DX 
MOV DX ,AX 7SAVE SIZE OF LIST 1 


7 : 
7MERGE LISTS BY COMPARING NEXT ELEMENTS AND MOVING LARGER 
, ELEMENT TO COMBINED LIST 


e 
a 


MOV AX, CBX] ;GET NEXT ELEMENT FROM LIST 1 
CMP AX, CSI] 7 COMPARE TO ELEMENT FROM LIST 2 


JA MVLST1 7; JUMP IF LIST 1 ELEMENT IS LARGER 


a 

;LIST 2 ELEMENT IS LARGER 

7MOVE IT TO COMBINED LIST AND PROCEED TO NEXT ELEMENT 
7 IN LIST 2 


aw 

MOVSW ;MOVE LIST 2 ELEMENT INTO MERGED LIST 
LOOP CMPNXT ;COUNTDOWN ON LIST 2 

JMP EXITPR 7DONE IF ALL LIST 2 ELEMENTS MERGED SINCE 


7 REMAINING LIST 1 ELEMENTS ARE ALREADY 
, WHERE THEY BELONG 


7 

;LIST 1 ELEMENT IS LARGER 

7MOVE IT TO COMBINED LIST AND PROCEED TO NEXT ELEMENT 
7 IN LIST 1 


e 
a 


STOSW ;MOVE LIST 1 ELEMENT INTO MERGED LIST 
DEC BX 7POINT TO NEXT LIST 1 ELEMENT 

DEC BX 

DEC DX 7COUNTDOWN ON LIST 1 

JNZ CMPNXT 7KEEP COMPARING IF ELEMENTS STILL 


; LEFT IN LIST 1 


7 

;LIST 1 IS MERGED COMPLETELY INTO COMBINED LIST 

;MOVE REMAINING ELEMENTS FROM LIST 2 TO FRONT OF COMBINED 
; LIST 


, 
MOVSW 7MOVE REST OF LIST 2 INTO MERGED LIST 


RET 7 EXIT 
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SAMPLE EXECUTION 


ws Ws Ne 


ov 
SC6H: 


, 

7MERGE AN ARRAY BETWEEN BEGBF1 (FIRST ELEMENT) 

7 AND ENDBF1 CLAST ELEMENT) WITH AN ARRAY BETWEEN 
, BEGBF2 (FIRST ELEMENT) AND ENDBF2 (LAST ELEMENT) 


av 

MOV AX, CSIZE2] 7GET SIZE OF LIST 2 

PUSH AX 

MOV BX,OFFSET BEGBF2 ;GET BASE ADDRESS OF LIST 2 
PUSH BX 

MOV AX, CSIZE1] ,GET SIZE OF LIST 1 

PUSH AX 

MOV BX,OFFSET BEGBF1 ;GET BASE ADDRESS OF LIST 1 
PUSH BX 

CALL MSORT 7MERGE LISTS 


7RESULT FOR TEST DATA IS 
7 0,1,2,3, ws. ,14,15 
JMP SC6H 7LOOP TO REPEAT TEST 


, 
7DATA SECTION 


SIZE1 DW 8 7SIZE OF LIST 1 
BEGBF1 DW 1 7LIST 1 
DW 3 
DW 5 
DW 7 
DW 9 
DW 11 
DW 13 
DW 15 
DW 8 DUP(?) 7 EXTRA SPACE REQUIRED TO MERGE 
7 ELEMENTS FROM LIST 2 
SIZE2 DW 8 7SIZE OF LIST 2 
BEGBF2 DW 0 ,LIST 2 
DW 2 
DW 4 
DW 6 
DW 8 
DW 10 
DW 12 
DW 14 


END 


230 


6I 


Assembly language subroutines for the 8086 


RAM test 


(RAMTST) 


Tests a RAM area specified by a 20-bit even base address and a 20-bit 
even length in bytes. Writes the values 0, FFFFi6, 1010101010101010 
(AAAAjeo), and 0101010101010101, (555516) into each word and checks 
whether they can be read back correctly. Places 1 in each bit position of 
each word and checks whether it can be read back correctly with all 
other bits cleared. Clears Carry if all tests run correctly; if it finds an 
error, it exits immediately, setting Carry, clearing the Zero flag, and 
returning the test value and the address at which the error occurred. If 
either the base address or the length in bytes is odd, the program exits 
without testing any memory and returns both the Carry and Zero flags 
set to 1. 


Procedure The program performs the single value tests (with 0, 
FFFF 16, AAAAjeo, and 555546) by first filling the memory area and then 
comparing each word with the specified value. Filling the entire area 
first should provide enough delay between writing and reading to detect 
a failure to retain data (perhaps caused by improperly designed refresh 
circuitry). The program then performs the walking bit test, starting with 
bit 15; here it writes the data into memory and reads it back immediately 
for a comparison. 


Entry conditions 


Low word of area size in bytes in register AX 
High byte of area size in bytes in register DL (must be less than 16) 
Segmented base address of test area in registers DS and SI 


Exit conditions 

1. Ifamemory error is found: 
Carry = 1 
Zero = 1 


Address containing error in registers ES and BX 
Byte-length test value in AL 


2. Ifaspecification error (odd area size in bytes or odd base address) is 
found: 
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Carry = 1 
Zero = 1 
0 in registers ES and BX 


3. Ifno error is found: 
Carry = 0 
All bytes in test area contain 0 


Example 


Data: Base address = 003806 (offset 038016 in segment 0) 
Length (size) of area = 30200i6 

Result: Area tested is the 30200,¢ bytes starting at address 0038046, 
that is, addresses 0038016 through 3057F1.. The order of the 
tests Is: 


1. Write and read 0 

2. Write and read FFi¢ 

3. Write and read AAj¢ (10101010,) 
4. Write and read 551.6 (010101012) 


5. Walking bit test, starting with 1 in bit 7. That is, start with 
10000000, (80:6) and move the 1 one position right for each 
subsequent test of a byte. 


Registers used AX, BX, CX, DI, DX, ES, F, SI 


Execution time Approximately 1048 cycles per word tested plus 519 
cycles overhead plus 200 cycles for each crossover into a new segment. 
Thus, for example, to test an area of size 204001, = 132 09619 would take 


1048 x 66048 + 519 + 400 = 69200000 
This is about 14 s at a standard 8086 clock rate of 5 MHz. 


Program size 190 bytes 


Data memory required None 
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Special cases 


1. An area size of 0000016 causes an immediate exit with no memory 
tested. Carry is cleared to indicate no errors. 


2. Since the routine changes all bytes in the tested area, using it to test 
an area that includes itself will yield unpredictable results. 

Note that Case 1 means you cannot ask this routine to test the entire 
memory, but such a request would be meaningless anyway since it 
would require the routine to test itself. 


3. Testing a ROM causes a return with an error indication after the 
first occasion on which the test value differs from the memory’s 
contents. 


4. If either the area size in bytes or the base address is odd, the 
program exits immediately, setting both the Carry and the Zero flags to 
1 to indicate an invalid condition. It also returns 0 in both registers ES 
and BX. 


Title RAM Test 
Name: RAMTST 
Purpose: Test a RAM (read/write memory) area as follows: 


1) Write all O and test 

2) Write all 11111111 binary and test 

3) Write all 10101010 binary and test 

4) Write all 01010101 binary and test 

5) Shift a single 1 through each bit, 
while clearing all other bits 


If the program finds an error, it exits 
immediately with the Carry flag set and 
indicates the test value and where the 

error occurred. 


Entry: Low word of area size in bytes in BX 


High byte of area size in bytes in DL (must 
be Less than 16) 


Offset of base address of area in SI 
Segment number of base address of area in DS 


Exit: If there are no errors then 


Carry = 0 

test area contains 0 in all bytes 
else if memory error found then 

Carry = 1 

Zero = 0 


we We We Te We Ne Ne Ne Ns Ns Ne Ne VWs Ne We 


7 
RAMTST: 


NXTEST: 


TESTBS: 
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Registers ES and BX = Segmented address of 
error 
Register AL = Byte-length test value 
else if specification error then 
Carry = 1 
Zero = 1 
Registers ES and BX = 0 


Registers Used: AX,BX,CX,DI,DX,ES,F,SI 


Time: Approximately 1048 cycles per word plus 


519 cycles overhead plus 200 cycles for 
each segment crossing 


Size: Program 190 bytes 


, 
EXIT INDICATING NO ERROR IF AREA SIZE IS ZERO 


a 

TEST DL,DL 7TEST HIGH BYTE OF AREA SIZE 

JNZ NXTEST 7 JUMP IF AREA SIZE NONZERO 

TEST BX ,BX 7TEST LOW WORD OF AREA SIZE 

JZ EXITRT 7BRANCH CEXIT) IF AREA SIZE IS ZERO 


7 CARRY = O (NO ERROR) IN THIS CASE 
7 BECAUSE OF TEST 


a 

7COMPUTE COUNT IN WORDS 

7EXIT, INDICATING SPECIFICATION ERROR, IF BYTE COUNT IS 

7 ODD OR IF BASE ADDRESS IS ODD 

7 SPECIFICATION ERROR IS INDICATED BY THE CONDITION C=1,Z=1 


o 
wv 


SHR DL,1 7WORD COUNT = AREA SIZE DIVIDED BY 2 

RCR BX,1 

JC EXITSP 7SPECIFICATION ERROR IF AREA SIZE IS ODD 
AND BX ,BX 7TEST LOW WORD OF WORD COUNT 

JNZ TESTBS 7; JUMP IF LOW WORD IS NONZERO 


DEC DL 7REDUCE UPPER BYTE BY 1 IF LOW WORD = 0 
, 7 TO MAKE COUNT WORK PROPERLY. THAT IS, 
7 COUNTING MECHANISM TREATS A O LOW WORD 


7 AS 10000 
TEST SI,1 7TEST IF BASE ADDRESS ON A WORD BOUNDARY 


JNZ EXITSP 7; SPECIFICATION ERROR IF BASE ADDRESS ODD 


av 
7FILL MEMORY WITH O AND TEST 


a 
SUB AX ,AX 7GET ZERO VALUE 
CALL FILCMP 7FILL AND TEST MEMORY 


Jc EXITRT 7BRANCH CEXIT) IF ERROR FOUND 
’ 
7FILL MEMORY WITH FF HEX CALL 1'S) AND TEST 


a 
MOV AX,OFFFFH ;GET ALL 1'S VALUE 
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WLKLP: 


WLKLP1: 


Assembly language subroutines for the 8086 


CALL 
JC 


FILCMP 
EXITRT 


7FILL AND TEST MEMORY 
7BRANCH CEXIT) IF ERROR FOUND 


, 
7FILL MEMORY WITH ALTERNATING 1'S AND O'S AND TEST 


a 
MOV 
CALL 
JC 


AX,QAAAAH ;GET ALTERNATING 1'S AND O'S PATTERN 


FILCMP 
EXITRT 


7FILL AND TEST MEMORY 
7BRANCH CEXIT) IF ERROR FOUND 


, 
7FILL MEMORY WITH ALTERNATING O'S AND 1'S AND TEST 


a 
MOV 
CALL 
Jc 


AX,5555H 
FILCMP 
EXITRT 


7GET ALTERNATING O'S AND 1'S PATTERN 
7FILL AND TEST MEMORY 
7BRANCH CEXIT) IF ERROR FOUND 


, 
7PERFORM WALKING BIT TEST. PLACE A 1 IN BIT 15 AND 


, SEE IF IT CAN BE READ BACK. 


THEN MOVE THE 1 TO 


, BITS 14, 13, 12,...,2, 1, 0 AND SEE IF IT CAN 
7 BE READ BACK 


a 

MOV 
MOV 
MOV 
MOV 
MOV 


MOV 
MOV 
CMP 
JNE 


SHR 
JNZ 


MOV 


INC 
INC 
LOOPNZ 


JCXZ 


DI,SI 
CX,DS 
ES,CX 
CX ,BX 
DH,DL 


AX,8000H 
CD1],AX 
AX, CDI] 
EXITCS 


AX,1 
WLKLP1 


CDI] ,AX 


DI 
DI 
WLKLP 


CHKHI 


7GET BASE ADDRESS OF TEST AREA 
7 START IN CURRENT DATA SEGMENT 


7GET LOWER WORD OF WORD COUNT 
7GET UPPER BYTE OF WORD COUNT 


7MAKE BIT 15 1, ALL OTHER BITS O 


7STORE TEST PATTERN IN MEMORY 

7TRY TO READ IT BACK 

7BRANCH CEXIT) IF ERROR FOUND 

7SHIFT PATTERN TO MOVE 1 BIT RIGHT 
7CONTINUE UNTIL PATTERN BECOMES ZERO 

7 THAT IS, UNTIL 1 BIT MOVES ALL THE 

7 WAY ACROSS THE WORD 

7CLEAR BYTE JUST CHECKED 

7 NOTE AX MUST CONTAIN O OR JNZ 

7 WOULD HAVE BRANCHED 

7POINT TO NEXT WORD 

zNOTE: CANNOT USE STOSW HERE SINCE 

7 WE MUST RECOGNIZE SEGMENT CROSSINGS 
7CONTINUE UNTIL SEGMENT BOUNDARY REACHED 
7 OR LOW WORD OF WORD COUNT REDUCED TO 0 
7 IF LOW WORD OF WORD COUNT REDUCED TO QO, 
7 JUMP TO CHECK HIGH BYTE 


a 

7CROSSED BOUNDARY OF CURRENT SEGMENT 

7MOVE ON TO NEXT 64K SEGMENT BY INCREASING SEGMENT REGISTER 
, BY 1000 HEX 


a 

MOV 
ADD 
MOV 
SUB 
JMP 


a 


DI,ES 
DI,1000H 
ES,DI 
DI,DI 
WLKLP 


7GET CURRENT SEGMENT NUMBER 
7MOVE ON TO NEXT 64K BYTE SEGMENT 


7START AT OFFSET O IN NEXT SEGMENT 
7CONTINUE TEST 


CHKHI: 


EXITRT: 


EXITSP: 


EXITCS: 
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7CHECK IF ENTIRE WORD COUNT EXHAUSTED BY REDUCING AND 
7 TESTING HIGH DIGIT 


DEC DH 7DECREMENT HIGH BYTE OF WORD COUNT 
JNS WLKLP 7CONTINUE TEST IF MORE WORDS LEFT 
CLC 7ALL WORDS TESTED WITH NO ERRORS SO 


7 CLEAR CARRY TO INDICATE SUCCESS 
RET 


a 
,SPECIFICATION ERROR ~- SET ZERO FLAG BEFORE SETTING CARRY 


a 


SUB DI,DI 7SET ZERO FLAG, SET ENTIRE ADDRESS 
MOV ES,DI 7 OF SUPPOSED ERROR TO ZERO 


7FOUND AN ERROR - SET CARRY TO INDICATE IT 


MOV BX,DI 7GET OFFSET IN WHICH ERROR OCCURRED 
7 NOTE: SEGMENT NUMBER IS IN ES 

STC 7SET CARRY TO INDICATE ERROR 

RET 


ZERREREKEKEEEEEEEEKEKEEEEKEEKKEKEEKKKKKKKKKEKE 


;ROUTINE: 
7;PURPOSE: 


; 
7, ENTRY: 


_ we “We Ne No 


,EXIT: 


we “Ne Ne Ne Ns NF 


FILCMP 

FILL MEMORY WITH A VALUE AND TEST 

THAT IT CAN BE READ BACK 

AX = TEST VALUE 

DL = HIGH BYTE OF WORD COUNT 

BX = LOW WORD OF WORD COUNT 

DS = SEGMENT NUMBER OF BASE ADDRESS OF TEST AREA 
SI = OFFSET OF BASE ADDRESS OF TEST AREA 

IF NO ERRORS THEN 


CARRY = 0 
ELSE 
CARRY = 1 


BX = OFFSET OF ERROR 
ES SEGMENT NUMBER OF ERROR 
AX = TEST VALUE 


7REGISTERS USED: AX,BX,CX,DI,DH,ES,F 
ZEKE KEE EERE REREREKEEAK RAKE 


FILCMP: 


FILWRD: 


a 


7FILL MEMORY WITH TEST VALUE 


a 

MOV DI,SI 7GET OFFSET OF BASE ADDRESS OF AREA 
MOV CX,DS 7STARTING SEGMENT NUMBER = CURRENT 
MOV ES ,CX 7 DATA SEGMENT 

MOV CX ,BX 7GET LOW WORD OF WORD COUNT 

MOV DH,DL 7GET HIGH BYTE OF WORD COUNT 

MOV CDI] ,AX 7FILL MEMORY WITH TEST VALUE 

INC DI 7POINT TO NEXT WORD 


INC DI 7NOTE: CANNOT USE STOSW HERE BECAUSE 
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FDECHI: 


CMPWRD: 


CDECHI: 


EREXIT: 


ee 
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7 WE MUST RECOGNIZE SEGMENT CROSSINGS 


LOOPNZ FILWRD 7LOOP UNTIL SEGMENT BOUNDARY REACHED 
7 OR LOW WORD OF WORD COUNT IS 0 

JCXZ FDECHI ;BRANCH IF LOW WORD OF COUNT IS O - 
; GO CHECK HIGH BYTE 

MOV DI,ES 7SEGMENT BOUNDARY REACHED SO PROCEED 
; TO NEXT 64KB SEGMENT 

ADD DI,1000H 

MOV ES,DI 

SUB DI,DI 7START AT OFFSET O IN NEXT SEGMENT 

JMP FILWRD 7CONTINUE FILL 

DEC DH 7DECREMENT HIGH BYTE OF WORD COUNT 

JNS FILWRD 7CONTINUE IF MORE WORDS TO FILL 


’ 
;COMPARE MEMORY AND TEST VALUE 


a 

MOV DI,SI 7GET OFFSET OF BASE ADDRESS OF AREA 

MOV CX,DS 7STARTING SEGMENT NUMBER = CURRENT 

MOV ES,CX 7 DATA SEGMENT 

MOV CX ,BX 7GET LOW WORD OF WORD COUNT 

MOV DH,DL 7GET HIGH BYTE OF WORD COUNT 

CMP AX, CDI] 7 COMPARE TEST VALUE AND MEMORY WORD 

JNE EREXIT 7BRANCH CERROR EXIT) IF NO EQUAL 

INC DI 7POINT TO NEXT WORD 

INC DI ;NOTE: CANNOT USE SCASW HERE BECAUSE 
7 WE MUST RECOGNIZE SEGMENT CROSSINGS 

LOOPNZ CMPWRD 7,LOOP UNTIL SEGMENT BOUNDARY REACHED 
7 OR LOW WORD OF WORD COUNT IS 0 

JCXZ CDECHI 7BRANCH IF LOW WORD OF COUNT IS 0 - 
7 GO CHECK HIGH BYTE - 

MOV DI,ES 7 SEGMENT BOUNDARY REACHED SO PROCEED 
7 TO NEXT 64KB SEGMENT 

ADD DI,1000H 

MOV ES,DI 

SUB DI,OI 7START AT OFFSET O IN NEXT SEGMENT 

JMP CMPWRD 7CONTINUE COMPARISON 

DEC DH 7DECREMENT HIGH BYTE OF WORD COUNT 


JNS CMPWRD CONTINUE IF MORE WORDS TO COMPARE 


’ 


7NO ERRORS FOUND, CLEAR CARRY AND EXIT 


a 
CLC 7 INDICATE NO ERRORS 
RET 


, 
7ERROR FOUND, SET CARRY, POINT TO ERROR, AND EXIT 


7 


MOV BX,DI 7GET ADDRESS OF ERROR 
STC 7 INDICATE AN ERROR 
RET 


SAMPLE EXECUTION 


‘ue 


, 
SCé6I: 
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7TEST RAM FROM 02000 HEX THROUGH 3300F HEX 
7 SIZE OF AREA = 31010 HEX BYTES 


’ 

MOV 
MOV 
MOV 


SUB 


MOV 
CALL 


END 


BX,1010H 7GET LOW WORD OF AREA SIZE IN BYTES 

DL,3 7GET HIGH BYTE OF AREA SIZE IN BYTES 

$1,2000H 7GET OFFSET OF BASE ADDRESS OF TEST 
| 7 AREA 

DI,DI 7GET SEGMENT NUMBER OF BASE ADDRESS 

DS,DI 7 OF TEST AREA (0) 

RAMTST 7 TEST MEMORY 


7CARRY WILL BE O IF NO MEMORY ERRORS 
7 ARE FOUND IN THIS AREA 
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6J Jump table 


(JTAB) 


Transfers control to a 32-bit segmented address selected from a table 
according to an index. The segmented addresses are stored in the usual 
8086 format (instruction pointer value first, then code segment register 
value, with both arranged less significant byte first), starting at address 
JMPTBL. The size of the table (number of addresses) is a constant 
LENSUB. If the index is greater than or equal to LENSUB, the pro- 
gram returns control immediately with Carry set to 1. 


Procedure The program first checks if the index is greater than or 
equal to the size of the table (LENSUB). If it is, the program returns 
control with the Carry flag set. If it is not, the program obtains the 
starting address of the appropriate subroutine from the table and jumps 
to it. The result is like an indexed CALL instruction with range checking 
and automatic accounting for the 32-bit length of segmented addresses 
(instruction pointer value and code segment register value). 


Entry conditions 
Index in AX 


Exit conditions 


If [AX] is greater than LENSUB, an immediate return with Carry = 1. 
Otherwise, control is transferred to appropriate subroutine as if an 
indexed call had been performed. The return address (presumably 32 
bits long) remains at the top of the stack. 


Example 


Data: LENSUB (size of subroutine table) = 03 
Table consists of addresses CS0:SUBO, CS1:SUB1, and 
CS2:SUB2. 
Index = [AX] = 

Result: Control ransferred to address CS2:SUB2 (i.e. code segment 
register = CS2, instruction pointer = SUB2) 


“Oe 
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Registers used AX, BX,F 


Execution time 48 cycles besides the time required to execute the 
actual subroutine. 


Program size 17 bytes plus 4 x LENSUB bytes for the table of 
starting addresses, where LENSUB is the number of subroutines. 


Data memory required None 


Special case Entry with an index greater than or equal to LENSUB 
causes an immediate exit with Carry set to 1. 





Title Jump Table 
Name: JTAB 
Purpose: Given an index, jump to the subroutine with 


that index in a table 


Entry: Subroutine number (0 to LENSUB-1, the number of 
subroutines) in AX. LENSUB must be less than 
or equal to 16,383. 


Exit: If the routine number is valid then 
execute the routine 
else 
Carry = 1 


Registers Used: AX,BX,F 
Time: 48 cycles plus execution time of subroutine 


Size: Program 17 bytes plus size of table (4 X LENSUB) 


EXIT WITH CARRY SET IF ROUTINE NUMBER IS INVALID 
THAT IS, IF IT IS TOO LARGE FOR TABLE (>LENSUB - 1) 


CMP AX,LENSUB COMPARE ROUTINE NUMBER, TABLE LENGTH 
JAE EREXIT 7BRANCH CEXIT) IF ROUTINE NUMBER TOO 
, LARGE 


INDEX INTO TABLE OF DOUBLE-WORD-LENGTH ADDRESSES 
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OBTAIN ROUTINE ADDRESS FROM TABLE AND TRANSFER CONTROL 


7 
; TO IT 
a 
SHL AX,1 ;MULTIPLY INDEX BY 4 TO ACCOUNT FOR 
SHL AX,1 7 DOUBLE-WORD-LENGTH ENTRIES 
MOV BX ,AX 
JMP DWORD PTR CBX+JMPTBL] ;JUMP INDIRECTLY TO SUBROUTINE 
a 
; ERROR EXIT - EXIT WITH CARRY SET 
, 
EREXIT: 
STC 7 INDICATE BAD ROUTINE NUMBER 
RET 
CSEG EQU 0 7ARBITRARY CODE SEGMENT NUMBER 
LENSUB EQU 3 7NUMBER OF SUBROUTINES IN TABLE 
, 
7JUMP TABLE 
; 
JMPTBL: 
DW SUBO 7 INSTRUCTION POINTER VALUE FOR 
; ROUTINE 0 
DW CSEG 7CODE SEGMENT REGISTER VALUE FOR 
; ROUTINE 0 
DW SUB1 7 INSTRUCTION POINTER VALUE FOR 
7 ROUTINE 1 
DW CSEG 7CODE SEGMENT REGISTER VALUE FOR 
7 ROUTINE 1 
DW SUB2 INSTRUCTION POINTER VALUE FOR 
, ROUTINE 2 
DW CSEG 7CODE SEGMENT REGISTER VALUE FOR 


7 ROUTINE 2 


, 
7 THREE TEST SUBROUTINES FOR JUMP TABLE 


a 

SUBO: 
MOV AX, 1 z;TEST ROUTINE O SETS CAX] = 1 
RET 

SUB1: 
MOV AX,2 ;TEST ROUTINE 1 SETS CAX] = 2 
RET 

SUB2: 
MOV AX,3 ;TEST ROUTINE 2 SETS CAX] = 3 
RET 

’ 

; SAMPLE EXECUTION 

, 


, 
;PROGRAM SECTION 
SC6J: 
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SUB AX, AX vEXECUTE ROUTINE O 

CALL JTAB 7AFTER EXECUTION, CAX] = 1 

MOV AX,1 7EXECUTE ROUTINE 1 

CALL JTAB ,AFTER EXECUTION, CAX] = 2 

MOV AX,2 7EXECUTE ROUTINE 2 

CALL JTAB 7AFTER EXECUTION, CAX] = 3 

MOV AX,3 7EXECUTE ROUTINE 3 

CALL JTAB 7AFTER EXECUTION, CARRY = 1 

7 INDICATING BAD ROUTINE NUMBER 

JMP SC6J ,LOOP FOR MORE TESTS 
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6K Matrix multiplication 
(MATMUL) 


Multiplies two square matrixes and saves the result in a third matrix. 
The matrixes consist of unsigned byte-length elements. 


Procedure The program starts by clearing the entire result area. It 
then multiplies each row of matrix 1 by each column of matrix 2 to 
obtain the elements of the result matrix. Matrix 1 is the matrix with the 
base address lower in the stack. 





Entry conditions 
Order in stack (starting from the top) 


Low byte of return address 
High byte of return address 


Low byte of base address of result matrix 
High byte of base address of result matrix 


Low byte of base address of matrix 2 
High byte of base address of matrix 2 


Low byte of base address of matrix 1 
High byte of base address of matrix 1 


Low byte of size of matrixes in bytes 
High byte of size of matrixes in bytes 


Exit conditions 


Result matrix = matrix 1 X matrix 2 





Example 


Data: Size of matrixes = 3 by 3 
1 

Matrix 1 = 4 

3 


1 
Matrix 2 = 2 
4 


= Who Mm WH bd 
NOR Ww NN W 
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Result: 
11 OB OB 
Result matrix =12 13 13 
0D OB OE 
The elements are hexadecimal numbers. 


Registers used AX, BX, CX, DI, DX, F (clears D flag), SI 


Execution time Approximately 500 x SIZE? + 28 x SIZE + 177 
cycles, where SIZE is the number of rows or columns in the square 
matrixes. If, for example, the matrixes are 4 by 4, the execution time is 


500 x 4° + 28 x 4+ 177 = 32000 + 289 = 32289 cycles 
Program size 116 bytes 
Data memory required None 


Special case If the size of the matrixes is 0, the program returns 
immediately with no memory locations changed. Carry is set to 1 to 
indicate an error. 





Title Matrix Multiplication 
Name: MATMUL 
Purpose: Multiplies two square matrixes of 


byte-lLength elements 


Entry: TOP OF STACK 


Low byte of return address 

High byte of return address 

Low byte of base address of result matrix 
High byte of base address of result matrix 
Low byte of base address of matrix 2 

High byte of base address of matrix 2 

Low byte of base address of matrix 1 

High byte of base address of matrix 1 

Low byte of size of matrixes in bytes 

High byte of size of matrixes in bytes 
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MATMUL: 


REP 


COMPEL: 
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Exit: Result matrix = matrix 1 X matrix 2 
Registers Used: AX,BX,CX,DI,DX,F (clears D flag),SI 


Time: Approximately 500 X size"3 + 28 X size + 


177 cycles where size is the number of 
rows or columns in the square matrixes 


Size: Program 116 bytes 


, 
7CLEAR ENTIRE RESULT AREA 


PUSH BP 7SAVE OLD BASE POINTER 
MOV BP,SP 7;POINT TO PARAMETERS 
MOV DI,CBP+4] 7GET BASE ADDRESS OF RESULT MATRIX 
MOV BX, CBP+10] 7GET SIZE OF MATRIXES 
MOV AL,BL 7,SQUARE SIZE TO GET TOTAL NUMBER 
MUL BL 7, OF MATRIX ELEMENTS 
MOV CX ,AX SAVE TOTAL NUMBER OF ELEMENTS 
STC 7 INDICATE POSSIBLE ERROR 
JCXZ MEXIT 7EXIT WITH ERROR INDICATOR IF 
; SIZE = 0 
SUB AX,AX ;GET ZERO FOR CLEARING 
CLD ;SELECT AUTOINCREMENTING 
STOSB 7CLEAR ENTIRE RESULT MATRIX 


wv 

MULTIPLY MATRIXES AS FOLLOWS: 

7FOR I = O TO SIZE - 1 

7FOR J 0 TO SIZE - 1 

7FOR K = O TO SIZE - 1 

; DO MR (I,J) = M1CI,K) X M2(K,J) + MRCI,J) 


7 
7THAT IS, EACH ELEMENT OF RESULT MATRIX CONSISTS OF A ROW 
7 OF MATRIX 1 TIMES A COLUMN OF MATRIX 2 


a 
MOV CX ,BX 7GET MATRIX SIZE 
SUB BX ,BX 7CLEAR INDEXES I (BL) AND J (BH) 


SUB DX ,DX ;CLEAR INDEX K (DL) 
, 
7COMPUTE PRODUCT ELEMENT-BY-ELEMENT 


s 
a 


, 
7ADDRESS OF ELEMENT IN MATRIX 1 = INDEX I X SIZE + INDEX K 
7 + BASE ADDRESS OF MATRIX 1 


7 

MOV AX,CBP+10] 7GET SIZE OF MATRIXES 

MUL BL ,INDEX I X SIZE 

MOV DI,CBP+8] 7GET BASE ADDRESS OF MATRIX 1 
ADD DI ,AX 7;COMPUTE ADDRESS OF M1(1,0) 
MOV AL,DL 7GET INDEX K 

CBW 7EXTEND TO 16 BITS 


ADD DI,AX 7COMPUTE ADDRESS OF M1(1I,K) 
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7ADDRESS OF ELEMENT IN MATRIX 2 = INDEX K X SIZE + INDEX J 
7 + BASE ADDRESS OF MATRIX 2 


7 

MOV AX, CBP+10] 7GET SIZE OF MATRIXES 

MUL DL 7 INDEX K X SIZE 

MOV S1,CBP+6] 7GET BASE ADDRESS OF MATRIX 2 
ADD S1,AX 7COMPUTE ADDRESS OF M2(K,0) 
MOV AL,BH 7GET INDEX J 

CBW 7EXTEND TO 16 BITS 

ADD S1,AX 7COMPUTE ADDRESS OF M2(K,J) 


, 
;MULTIPLY M1(01,K) TIMES M2(K,J) 


MOV AL,CSI1] 7GET M1(1,K) 
MOV AH,CDII 7GET M2(K,J) 
MUL AH ;MULTIPLY M1(1I,K) X M2(K,J) 


MOV DH,AL 7 SAVE PRODUCT 


7 
7ADDRESS OF ELEMENT IN RESULT MATRIX = INDEX I X SIZE + 
, INDEX J + BASE ADDRESS OF RESULT MATRIX 


7 

MOV AX,CBP+101] 7GET SIZE OF MATRIXES 

MUL BL 7INDEX I X SIZE 

MOV S1,C0BP+4] 7GET BASE ADDRESS OF RESULT MATRIX 
ADD S1,AX 7COMPUTE ADDRESS OF MR(I,0) 

MOV AL,BH 7GET INDEX J 

CBW 7EXTEND TO 16 BITS 

ADD SI ,AX 7COMPUTE ADDRESS OF MRCI,J) 


7ADD PRODUCT OF M1(I,K) AND M2(K,J) TO MRCI,J) 
ADD CS1],DH 
7CONTINUE COMPUTING ROW OF MATRIX 1 X COLUMN OF MATRIX 2 


INC DL 7 INDEX K = K + 1 
LOOP COMPEL 7CONTINUE THROUGH ROW X COLUMN 


, 
7PROCEED TO NEXT ELEMENT IN RESULT MATRIX 


a 
SUB DL,DL 7 INDEX K 


= 0 
INC BH 7 INDEX J = J + 1 
MOV CxX,CBP+10] 7GET SIZE OF MATRIXES 
CMP BH,CL 7CHECK IF J EXCEEDS BOUNDS 
JNE COMPEL 7JUMP IF NOT - START NEXT ELEMENT 
7ELSE PROCEED TO NEXT ROW 
SUB BH,BH 7 INDEX J = 0 
INC BL 7 INDEX I = I + 1 
CMP BL,CL 7CHECK IF FINISHED (BL = SIZE) 
JNE COMPEL 7JUMP IF NOT - START NEXT ELEMENT 


7ELSE DONE, NOTE CARRY IS SURELY 
7 “ZERO INDICATING GOOD EXIT 


; 
7REMOVE PARAMETERS FROM STACK AND EXIT 


se 
7 
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MEXIT: 


, 
7PROGRAM SECTION 


SC6K: 
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POP 
POP 
ADD 
JMP 


MOV 
PUSH 
MOV 
PUSH 
MOV 
PUSH 
MOV 
PUSH 
CALL 


JMP 


7 
,DATA SECTION 


MSIZE 
MAT1 


MAT2 


MATR 


EQU 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 


END 


BP 7RESTORE BASE POINTER 

DX 7 SAVE RETURN ADDRESS 

SP,8 7REMOVE PARAMETERS FROM STACK 
DX 7EXIT TO RETURN ADDRESS 
AX,MSIZE 7GET MATRIX SIZE 

AX 


AX,OFFSET MAT1 ;GET BASE ADDRESS OF MATRIX 1 
AX 
AX,OFFSET MAT2 ;GET BASE ADDRESS OF MATRIX 2 
AX 
AX,OFFSET MATR ;GET BASE ADDRESS OF RESULT MATRIX 
AX | 
MATMUL 700 MATRIX MULTIPLICATION 
7RESULT IN MATR = 
7 33H, 2FH, 2BH, 27H 
; 27H, 2BH, 2FH, 33H 
, (BH, 77H, 73H, 6FH 
, 6FH, 73H, 77H, 7BH 


SC6K 7LOOP FOR MORE TESTS 
4 ,SIZE OF MATRIXES 
1,2,3,4 ;MATRIX 1 

4,3,2,1 

5,6,7,8 

8,7,6,5 

1,2,3,4 7MATRIX 2 

5,6,7,8 

8,7,6,5 

4,3,2,1 

MSIZE*MSIZE DUP(O) ;RESULT MATRIX 


Data structure 
manipulation 





7A Queue manager 
(INITQ, INSRTQ, REMOVQ) 


Manages a queue of 16-bit words on a first-in, first-out basis. The queue 
may contain up to 32763 word-length elements plus an 8-byte header 
and an overflow word. The overflow word allows the manager to distin- 
guish a full queue from an empty queue. The manager consists of the 
following routines: 


1. INITQ starts the queue’s head and tail pointers at the base address 
of its data area, sets the queue’s length to 0, and sets its end pointer to 
just beyond the end of the data area. 


2. INSRTQ inserts an element at the tail of the queue if there is room 
for it. 


3. REMOVQ removes an element from the head of the queue if one is 
available. 


These routines assume a data area of fixed length. The actual queue may 
occupy any part of it. If either the head or the tail reaches the end 
pointer, the routine simply sets it back to the base address, thus pro- 
viding wraparound. 

The queue header contains the following information: 


1. Queue length (number of elements currently in it) 
2. Head pointer (address of oldest element in queue) 
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3. Tail pointer (address at which next entry will be placed) 
4. End pointer (address just beyond the end of the data area). 


Note that the queue never occupies the entire data area. The queue is 
full when its tail pointer is one element behind its head pointer. This 
leaves one word (an overflow word) unoccupied. The queue is empty 
when its tail pointer and head pointer are equal. An alternate approach 
is to keep the size of the data area in the header. This makes the header 
larger (and the routines somewhat longer) but eliminates the need for 
an overflow word. 


Procedure 


1. INITQ sets the head and tail pointers to the base address of the data 
area, sets the queue’s length to 0, and sets the end pointer to the address 
just beyond the end of the data area. 


2. INSRTQ stores the element at the tail and increases the tail pointer. 
If this moves the tail pointer beyond the end of the data area, INSRTQ 
sets it back to the base address. It then checks whether the queue was 
already full (i.e. whether increasing the tail pointer made it equal to the 
head pointer). If so, it discards the incremented tail pointer and sets 
Carry to indicate an overflow. If not, it saves the incremented tail 
pointer and clears Carry. 


3. REMOV0O checks whether the queue is empty. If so, it sets the 
Carry flag to indicate an underflow. If not, it removes the element from 
the head and increases the head pointer. If this moves the head pointer 
beyond the end of the data area, REMOVOQ sets it back to the base 
address. 


A sequence of INSRTQs and REMOVQs makes the head ‘chase’ the 
tail across the data area. The occupied part of the area starts at the head 
and ends just before the tail. Note that INSRTOQ will put an element in 
the overflow word if the queue is full, but this word is not actually part 
of the queue and the element cannot be retrieved. 


Entry conditions 


1. INITQ 
Base address of queue in register BX 
Capacity of queue in words in register AX 
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2. INSRTQ 
Base address of queue in register BX 
Element to be inserted in register AX 


3. REMOVQ 
Base address of queue in register BX 


Exit conditions 


1. INITQ 

Head pointer and tail pointer both set to base address of data area, 
queue length set to 0, and end pointer set to address just beyond the end 
of the data area. 


2. INSRTQ 
Element inserted into queue, queue length increased by 1, and tail 
pointer adjusted if queue is not full; otherwise, Carry = 1. 


3. REMOVQ 
Element removed from queue in register AX, queue length reduced by 
1, and head pointer adjusted if queue is not empty; otherwise, Carry = 


Example 
A typical sequence of queue operations proceeds as follows: 


1. Initialize the queue. Call INITQ to set the head and tail pointers to 
the data area’s base address, the queue length to 0, and the end pointer 
to the address just beyond the end of the data area. 


2. Insert an element into the queue. Call INSRTQ to insert the ele- 
ment, increase the tail pointer by 2, and increase the queue length by 1. 


3. Insert another element into the queue. Call INSRTQ again to insert 
the element, increase the tail pointer by 2, and increase the queue 
length by 1. 


4. Remove an element from the queue. Call REMOVQ to remove an 
element, increase the head pointer by 2, and decrease the queue length 
by 1. Since the queue is organized on a first-in, first-out basis, the 
element removed is the first one inserted. 
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Reference 


Y. Langsam, et al., Data Structures for Personal Computers, Prentice- 
Hall, Englewood Cliffs, NJ, 1985, pp. 154-164. 


Registers used 

1. INITQ: AX, BX, DI, DX, F (clears D flag) 
2. INSRTQ: AX, DI, DX, F (clears D flag) 

3. REMOVO: AX, DX, F (clears D flag), SI 


Execution time 

1. INITQ: 72 cycles 

2. INSRTQ: 135 cycles 
3. REMOVQ: 117 cycles 


Program size 

1. INITQ: 23 bytes 

2. INSRTOQ: 28 bytes 
3. REMOVQ: 28 bytes 


Data memory required None 


Title Queue Manager 
Name: INITQ, INSRTQ, REMOVQ 
Purpose: This program consists of three 


subroutines that manage a queue. 

INITQ initializes an empty queue. 

INSRTQ inserts a 16-bit element into 
the queue. 

REMOVQ removes a 16-bit element from 
the queue. 


Entry: INITQ 


Base address of queue in BX 
Queue capacity in 16-bit elements in AX 


INSRTQ 


we Ne Ne Na Ye We Ne We Ne Ns We We Ns We We Ws We Ws Ws We We We We We We Ws Ws We We We We We Ws We We Ws We We Ds We Ws We We We Ws 
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Exit: 


Registers Used: 


Time: 


Size: 


Base address of queue in BX 
Element to be inserted in AX 


REMOVQ 
Base address of queue in BX 


INITQ 
Head pointer = Base address of data area 
Tail pointer = Base address of data area 
Queue length = 0 
End pointer = Base address of data area + 
2 X Queue capacity in 16-bit elements + 2 


INSRTQ 
If queue is not full, 
Element added to queue 
Tail pointer = Tail pointer + 2 
Queue length = Queue length + 1 
Carry = 0 
else Carry = 1 


REMOVQ 
If queue is not empty, 
Element removed from queue in AX 
Head pointer = Head pointer + 2 
Queue length = Queue length - 1 
Carry = 0 
else Carry = 1 


INITQ 

AX,BX,D1,DX,F (clears D flag) 
INSRTQ 

AX,DI,DX,F (clears D flag) 
REMOVQ 


AX,DX,F (clears D flag),SI 


INITQ 

72 cycles 
INSRTQ 

135 cycles 
REMOVQ 

117 cycles 


Program 79 bytes 


, 
vINITIALIZE AN EMPTY QUEUE 


CONTAINS: 


QUEUE LENGTH IN WORDS 

HEAD POINTER CADDRESS OF OLDEST ELEMENT) 

TAIL POINTER (NEXT AVAILABLE ADDRESS) 

END POINTER CADDRESS JUST BEYOND END OF DATA AREA) 
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7;SET QUEUE LENGTH IN HEADER TO ZERO 


MOV DI ,BX 7 SAVE BASE ADDRESS OF QUEUE 
ADD BX ,8 7POINT TO START OF DATA AREA 
CLD ,SELECT AUTOINCREMENTING 

MOV DX,AX 7 SAVE QUEUE CAPACITY 

SUB AX ,AX ,QUEUE LENGTH = ZERO 

STOSW 7SET QUEUE LENGTH IN HEADER 


7 
7; INITIALIZE HEAD AND TAIL POINTERS TO START OF DATA AREA 


MOV AX , BX 7GET POINTER TO DATA AREA 
STOSW ;HEAD POINTER = START OF DATA AREA 
STOSW 7;TAIL POINTER = START OF DATA AREA 


7 
; INITIALIZE END POINTER TO ADDRESS JUST BEYOND DATA AREA 


SHL DX,1 ;MULTIPLY QUEUE CAPACITY TIMES 2 

7 SINCE CAPACITY IS IN WORDS 
ADD AX ,DX 7ADD DOUBLED CAPACITY TO BASE ADDRESS 
INC AX zADD 2 EXTRA BYTES (OVERFLOW WORD) 
INC AX ; TO DISTINGUISH EMPTY QUEUE FROM 

; FULL QUEUE 
STOSW 7END POINTER = ADDRESS JUST BEYOND 


7 END OF DATA AREA 
RET 


7 INSERT AN ELEMENT INTO A QUEUE 


INSRTQ: 


, 
7;STORE ELEMENT AT TAIL, THEN CHECK IF QUEUE WAS FULL 


7 

MOV DI,CBX+4] 7GET TAIL POINTER 

CLD ;SELECT AUTOINCREMENTING 

STOSW 7 INSERT ELEMENT AT TAIL AND INCREASE 


; TAIL POINTER BY 2 

7 IF QUEUE WAS ALREADY FULL, THIS 

7 STORES ELEMENT IN OVERFLOW WORD 

7 WHICH IS NOT ACTUALLY PART OF THE 
7 QUEUE 


7 
7IF TAIL POINTER HAS REACHED END OF DATA AREA, SET IT 
7, BACK TO BASE ADDRESS 


CMP D1,CBX+6] ;COMPARE TAIL POINTER TO END POINTER 
JNE STORTP 7BRANCH IF TAIL NOT AT END OF DATA 

7 AREA 
MOV DI,BX 7OTHERWISE, MOVE TAIL POINTER BACK TO 


; BASE ADDRESS OF DATA AREA 
ADD DI,8 


a 


’ 
;CHECK IF QUEUE WAS ALREADY FULL 
7I1T WAS IF INCREMENTED TAIL POINTER IS EQUAL TO HEAD POINTER 


EXITIS: 


e 
av 
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71F SO, EXIT WITHOUT UPDATING TAIL POINTER 

7IT THEN RETAINS ITS OLD VALUE AND THE ELEMENT IS NOT 

7, ACTUALLY ENTERED INTO THE QUEUE 

71F NOT, UPDATE TAIL POINTER AND ADD 1 TO QUEUE LENGTH 
7CARRY INDICATES WHETHER INSERT SUCCEEDED (0O IF IT DID, 1 
; IF NOT) 


a 

CMP DI,CBX+2] 7COMPARE TAIL POINTER TO HEAD POINTER 
STC INDICATE QUEUE FULL COVERFLOW) 

JE EXITIS 7BRANCH CEXIT) IF QUEUE WAS FULL 

MOV CBX+41,DI 7SAVE UPDATED TAIL POINTER 

INC WORD PTR CBX] ;ADD 1 TO QUEUE LENGTH 

CLC 7CLEAR CARRY TO INDICATE ELEMENT WAS 


> INSERTED INTO QUEUE SUCCESSFULLY 


RET 


7REMOVE AN ELEMENT FROM A QUEUE 


REMOVQ: 


STORHP: 


EXITRQ: 


, 

7CHECK IF QUEUE IS EMPTY BY COMPARING HEAD AND TAIL POINTERS 
7EQUAL POINTERS INDICATE AN EMPTY QUEUE 

EXIT WITH CARRY SET IF QUEUE IS EMPTY 


MOV SI,CBX+2] 7GET HEAD POINTER 
CMP $1,CBX+4] 7COMPARE TO TAIL POINTER 
STC 7 INDICATE QUEUE EMPTY (CUNDERFLOW) 


JE EXITRQ 7BRANCH CEXIT) IF QUEUE IS EMPTY 


7QUEUE NOT EMPTY, SO REMOVE ELEMENT FROM HEAD 
7SUBTRACT 1 FROM QUEUE LENGTH 


7 

CLD 7SELECT AUTOINCREMENTING 

LODSW 7GET ELEMENT FROM HEAD OF QUEUE AND 
7 MOVE HEAD POINTER UP ONE ELEMENT 


DEC WORD PTR CBX] ;SUBTRACT 1 FROM QUEUE LENGTH 

, 

7 IF HEAD POINTER HAS REACHED END OF DATA AREA, SET IT BACK 
7 TO BASE ADDRESS OF DATA AREA 


a 

CMP SI1,CBX+6] 7COMPARE HEAD POINTER TO END POINTER 
JNE STORHP 7BRANCH IF NOT AT END OF DATA AREA 
MOV $1 ,BX ,OTHERWISE, MOVE HEAD POINTER BACK 
ADD S1,8 7 TO BASE ADDRESS OF DATA AREA 

MOV CBX+4],SI1 7SAVE UPDATED HEAD POINTER 

CLC 7 INDICATE QUEUE NON-EMPTY, 


7 ELEMENT FOUND 


RET 7EXIT, CARRY INDICATES WHETHER 
7 ELEMENT WAS FOUND (0 IF SO, 
,; 1 IF NOT) 
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SC7A: 


, 
7 DATA 


a 
QUEUE 
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SAMPLE EXECUTION 


, 
7 INITIALIZE EMPTY QUEUE 


wv 

MOV AX,5 DATA AREA HAS ROOM FOR 5 WORD-LENGTH 
: ELEMENTS 

MOV BX,OFFSET QUEUE ;GET BASE ADDRESS OF QUEUE BUFFER 

CALL INITQ INITIALIZE QUEUE 


7 
7; INSERT ELEMENTS INTO QUEUE 


MOV AX ,QAAAAH 7ELEMENT TO BE INSERTED IS AAAA 
MOV BX,OFFSET QUEUE ;GET BASE ADDRESS OF QUEUE 
CALL INSRTQ 7 INSERT ELEMENT INTO QUEUE 

MOV AX, OBBBBH 7ELEMENT TO BE INSERTED IS BBBB 
MOV BX,OFFSET QUEUE ;GET BASE ADDRESS OF QUEUE 


7NOT ACTUALLY NECESSARY IN THIS 
7 SEQUENCE SINCE INSRTQ DOES NOT 
, CHANGE BX 

CALL INSRTQ 7 INSERT ELEMENT INTO QUEUE 


;REMOVE ELEMENT FROM QUEUE 


a 
MOV BX,OFFSET QUEUE ;GET BASE ADDRESS OF QUEUE 
CALL REMOVQ 7REMOVE ELEMENT FROM QUEUE 
; CAX] = OAAAAH CFIRST ELEMENT 
7; INSERTED) 
JMP SC7A 7REPEAT TEST 


DW 10 DUP (?) ;QUEUE BUFFER CONSISTS OF AN 8 BYTE 
; HEADER FOLLOWED BY 12 BYTES FOR 
; DATA. THIS IS ENOUGH ROOM FOR FIVE 
7 WORD-LENGTH ELEMENTS PLUS AN 
7 OVERFLOW WORD. 
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7B Stack manager 
(INITST, PUSHS, POPS, STKTOP) 


Manages a stack of 16-bit words on a first-in, last-out basis. The stack 
can contain up to 32 765 elements. Consists of the following routines: 


1. INITST initializes the stack header, consisting of the stack pointer 
and its upper and lower bounds. 


2. PUSHS inserts an element into the stack if there is room for it. 
3. POPS removes an element from the stack if one is available. 


4. STKTOP returns the top element and its address. 


Procedures 


1. INITST sets the stack pointer and its lower bound to the base 
address of the stack’s data area. It sets the upper bound to the address of 
the last word in the data area. 


2. PUSHS checks whether the stack pointer exceeds its upper bound. 
If so, it sets the Carry flag to indicate overflow. If not, it inserts the 
element at the stack pointer, increases the stack pointer by 2, and clears 
the Carry flag. 


3. POPS checks whether decreasing the stack pointer by 2 will make it 
less than its lower bound. If so, it sets the Carry flag to indicate 
underflow. If not, it decreases the stack pointer by 2, removes the 
element, and clears the Carry flag. 


4. STKTOP checks whether decreasing the stack pointer by 2 will 
make it less than its lower bound. If so, it sets the Carry flag to indicate 
an empty stack. If not, it returns the top element and its address and 
clears the Carry flag. Note that the top element’s address is not the stack 
pointer, but rather the location immediately below it. 


The software stack differs from the 8086’s hardware stack in the 
following regards: 


1. It grows up in memory (i.e. toward higher addresses), whereas the 
hardware stack grows down (i.e. toward lower addresses). 


2. Its pointer contains the next available memory address, whereas the 
hardware pointer contains the last occupied address. 
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Entry conditions 


1. INITST 
Base address of stack in register BX 
Size of stack data area in words in register AX 


2. PUSHS 
Base address of stack in register BX 
Element in register AX 


3. POPS 
Base address of stack in register BX 


4. STKTOP 
Base address of stack in register BX 


Exit conditions 


1. INITST 
Stack header set up with: 


Stack pointer = Base address of stack’s data area 
Lower bound = Base address of stack’s data area 
Upper bound = Address of last word in stack’s data area 


2. PUSHS 
Element inserted into stack and stack pointer increased if there is room 
in the data area; otherwise, Carry = 1, indicating an overflow. 


3. POPS 
Element removed from stack in register AX and stack pointer decreased 
if stack was not empty; otherwise, Carry = 1, indicating an underflow. 


4. STKTOP 
Top element in register AX and its address in register BX if stack is not 
empty; otherwise, Carry = 1, indicating an empty stack. 


Example 
A typical sequence of stack operations proceeds as follows: 


1. Initialize the empty stack with INITST. This sets the stack pointer 
and the lower bound to the base address of the stack’s data area, and the 
upper bound to the address of the last word in the data area. 
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2. Insert an element into the stack. Call PUSHS to store an element at 
the top of the stack and increase the stack pointer by 2. 


3. Insert another element into the stack. Call PUSHS to store a second 
element at the top of the stack and increase the stack pointer by 2. 


4. Remove an element from the stack. Call POPS to decrease the 
stack pointer by 2 and remove an element from the top of the stack. 
Since the stack is organized on a last-in, first-out basis, the element 
removed is the latest one inserted. 


You can use STKTOP at any time to obtain the top element and its 
address without popping the stack. This allows you to use the top of the 
stack as an extra register. You can examine its contents, replace them, 
or exchange them with a hardware register. You can also determine the 
stack’s current position if you need to save it or index from it. The wide 
range of uses is why we include STKTOP here, even though it is not an 
elementary operation (it is equivalent to POPS followed immediately by 
PUSHS). 


Reference 


Y. Langsam et al., Data Structures for Personal Computers, Prentice- 
Hall, Englewood Cliffs, NJ, 1985, pp. 108-118. 


Registers used 

1. INITST: AX,DI,F 

2. PUSHS: DI,F (clears D flag) 
3. POPS: AX,DI,F 

4. STKTOP: AX,BX,DI,F 


Execution time 

1. INITST: 71 cycles 
2. PUSHS: 70 cycles 
3. POPS: 74 cycles 

4. STKTOP: 62 cycles 
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Program size 

1. INITST: 19 bytes 
2. PUSHS: 12 bytes 
3. POPS: 14 bytes 

4. STKTOP: 14 bytes 


Data memory required None 





; Title Stack Manager 
; Name: INITST, PUSHS, POPS, STKTOP 
, 
Purpose: This program consists of four 


subroutines that manage a stack. 


INITST initializes the stack pointer and 
the stack's upper and lower bounds 
PUSHS inserts a 16-bit element into 
the stack. 
POPS removes a 16-bit element from 
the stack. 
STKTOP returns the top element and its 
address without changing the stack 


Entry: INITST 
Base address of stack in BX 
Size of stack data area in words in AX 
PUSHS 
Base address of stack in BX 
Element in AX 
POPS 
Base address of stack in BX 
STKTOP 
Base address of stack in BX 


Exit: INITST 
Stack header set up with: 

Stack pointer = Base address of stack 
data area 

Lower bound = Base address of stack 
data area 

Upper bound = Address of last word 
in stack data area 


PUSHS 
If stack pointer is at or below upper 
bound, 
Element inserted into stack 
Stack pointer = Stack pointer + 2 
Carry = 0 
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else Carry = 1 


POPS 
If stack pointer - 2 is at or above Lower 
bound, 
Element removed from stack in AX 
Stack pointer = Stack pointer - 2 
Carry = 0 
else Carry = 1 


STKTOP 
If stack pointer - 2 is at or above lower 
bound, 
Top element in AX 
Top element's address (stack pointer - 2) 
in BX 
Carry = 0 
else Carry = 1 


Registers Used: INITST 
AX,DI,F 
PUSHS 
DI,F (clears D flag) 
POPS 
AX,DI,F 
STKTOP 
AX,BX,DI,F 


Time: INITST 
71 cycles 
PUSHS 
70 cycles 
POPS 
74 cycles 
STKTOP 
62 cycles 


Size: Program 59 bytes 


we we Me Me Me Be Re Me Ne Me Ne Ne Me Be Me Ne Me Us Ne Ne Ne Re Me Ne We Ne Ne We Ne Ne We Ne Ne Ne we SNe Ne Ne 


a 

7INITIALIZE AN EMPTY STACK 
7HEADER CONTAINS: 

; 1) STACK POINTER (2 BYTES) 
2) LOWER BOUND (2 BYTES) 


7 
; 3) UPPER BOUND (2 BYTES) 
, 
a 
7STACK POINTER = BASE ADDRESS OF STACK DATA AREA 
7LOWER BOUND = BASE ADDRESS OF STACK DATA AREA 
7 
INITST: 
MOV DI ,BX 7COMPUTE BASE ADDRESS OF STACK DATA 
ADD DI,6 7 AREA (BASE OF STACK + HEADER SIZE) 
MOV CBX1,DI 7STORE IT AS INITIAL STACK POINTER 


MOV CBX+21,DI 7STORE IT AS LOWER BOUND ALSO 
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7 
7 INSERT 


a 
PUSHS: 


PSEXIT: 


7 
7REMOVE 


POPS: 
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, 
7UPPER BOUND = ADDRESS OF LAST WORD IN STACK DATA AREA 


a 
DEC AX 7 INDEX OF LAST WORD = STACK SIZE - 1 
SHL AX,1 7MULTIPLY INDEX TIMES 2 SINCE 
7 ELEMENTS ARE WORD-LENGTH 
ADD DI,AX 7ADD DOUBLED INDEX TO BASE ADDRESS OF 
7 STACK DATA AREA 
MOV CBX+4],DI 7STORE SUM AS UPPER BOUND OF STACK 
RET 


16-BIT ELEMENT INTO A STACK 


7EXIT INDICATING OVERFLOW CCARRY SET) IF STACK IS FULL 


a 

MOV DI,CBXJ 7GET STACK POINTER 

CMP CBX+4],DI 7COMPARE TO UPPER BOUND 

JB PSEXIT 7BRANCH IF STACK POINTER IS 


7 ABOVE UPPER BOUND 

7 NOTE: THIS COMPARISON HANDLES 

7 SITUATIONS IN WHICH THE STACK 

7 POINTER HAS BECOME MISALIGNED OR 

7 HAS GONE OUTSIDE ITS NORMAL RANGE. 
7CARRY = 1 IF A BRANCH OCCURS, O IF 


7 
7NO OVERFLOW - INSERT ELEMENT INTO STACK 
7UPDATE STACK POINTER 


CLD ,SELECT AUTOINCREMENTING 

STOSW 7 INSERT ELEMENT INTO STACK AND 
7 INCREASE STACK POINTER 

MOV CBX1,DI 7 SAVE UPDATED STACK POINTER 


7CARRY IS CLEARED, INDICATING 
7 SUCCESSFUL PUSH, BY BOUNDARY 
7 CHECK ABOVE 


RET 7EXIT, CARRY INDICATES WHETHER 
7 PUSH WORKED (0) OR STACK WAS 
; FULL (1) 


16-BIT ELEMENT FROM A STACK 


7EXIT INDICATING UNDERFLOW (CARRY = 1) IF STACK IS EMPTY 


MOV DI,CBX] 7GET STACK POINTER 
DEC DI 7DECREASE STACK POINTER BY 2 
DEC DI 


CMP DI,CBX+2] 7COMPARE TO LOWER BOUND 
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JB EXITPOP BRANCH (EXIT) IF BELOW LOWER BOUND 
NOTE: THIS COMPARISON HANDLES 
SITUATIONS IN WHICH THE STACK 
POINTER HAS BECOME MISALIGNED OR 
GONE OUTSIDE ITS NORMAL RANGE. 
NOTE: JB IS THE SAME AS JC SO 
CARRY IS SET IF A BRANCH OCCURS, 
CLEARED IF NOT. 


we “Ne Ne Ne We Ne Ne 


7NO UNDERFLOW - REMOVE ELEMENT AND DECREASE STACK POINTER 


MOV CBX],DI 7 SAVE UPDATED STACK POINTER 

MOV AX, CDI] 7REMOVE ELEMENT FROM STACK 
EXITPOP: 

RET 7EXIT - CARRY INDICATES WHETHER 


7 POP WORKED (0) OR STACK WAS 
7 EMPTY (1) 


7RETURN TOP ELEMENT AND ITS ADDRESS 


a 
STKTOP: 
;EXIT INDICATING ERROR CCARRY = 1) IF STACK IS EMPTY 
7 
MOV DI,CBX] 7GET STACK POINTER 
DEC DI 7DECREASE STACK POINTER BY 2 
DEC DI 
CMP DI,CBX+2] ;COMPARE TO LOWER BOUND 
JB EXITTOP 7BRANCH CEXIT) IF BELOW LOWER BOUND 
7 NOTE: THIS COMPARISON HANDLES 
7 SITUATIONS IN WHICH THE STACK 
7 POINTER HAS BECOME MISALIGNED OR 
7 GONE OUTSIDE ITS NORMAL RANGE. 
>; NOTE: JB IS THE SAME AS JC SO 
7 CARRY IS SET IF A BRANCH OCCURS, 
7 CLEARED IF NOT. 
7;NO ERROR - RETURN TOP ELEMENT AND ITS ADDRESS 
MOV BX,DI ;RETURN TOP ELEMENT'S ADDRESS IN BX 
MOV AX,CDI] 7RETURN TOP ELEMENT IN AX 
7NOTE STACK POINTER DOES NOT CHANGE 
EXITTOP: 
RET 7;EXIT - CARRY INDICATES WHETHER 
7 ELEMENT VALID (0) OR STACK WAS 
; EMPTY (1) 
’ 
; SAMPLE EXECUTION 
? 
SC7B: 


7 
7INITIALIZE EMPTY STACK 


a 
MOV BX,OFFSET STACK ;GET BASE ADDRESS OF STACK 
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, 
;DATA 
; 
STACK 
ELEM1 


ELEM2 
STKSZ 
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MOV AX,STKSZ 7GET SIZE OF STACK DATA AREA IN WORDS 
CALL INITST 7INITIALIZE STACK HEADER 


, 
7PUT ELEMENT 1 IN STACK 


MOV AX, CELEM1] 7GET ELEMENT 1 
7NOTE THAT THE STACK ADDRESS STAYS 
7 IN BX SINCE ONLY STKTOP CHANGES 
7 THAT REGISTER 

CALL PUSHS ;PUT ELEMENT 1 IN STACK 


a 
7PUT ELEMENT 2 IN STACK 


MOV AX, CELEM2] 7GET ELEMENT 2 
MOV BX,OFFSET STACK ;GET BASE ADDRESS OF STACK AREA 
CALL PUSHS 7;PUT ELEMENT 2 IN STACK 


7 
7REMOVE ELEMENT FROM STACK 


a 

MOV BX,OFFSET STACK ;GET BASE ADDRESS OF STACK AREA 

CALL POPS 7REMOVE ELEMENT FROM STACK TO AX 
7 AX NOW CONTAINS ELEMENT 2 
, SINCE STACK IS ORGANIZED ON A 
7 LAST-IN, FIRST-OUT BASIS 


7 
7OBTAIN TOP ELEMENT AND ITS ADDRESS 


a 

MOV BX,OFFSET STACK ;GET BASE ADDRESS OF STACK AREA 

CALL STKTOP 7GET TOP ELEMENT AND ITS ADDRESS 
7 AX NOW CONTAINS ELEMENT 1 
7 BX CONTAINS ADDRESS STACK, THE 
7 TOP OCCUPIED ADDRESS 
7NOTE THAT STKTOP DOES NOT CHANGE 
, THE STACK OR ITS POINTER 

JMP SC7B 7LOOP FOR MORE TESTS 


DB 16 DUP(?) 7STACK HAS ROOM FOR 6-BYTE HEADER 
7 AND 10 BYTES OF DATA (5 WORD- 
; LENGTH ELEMENTS) 


DW 1111H 72-BYTE ELEMENT 
DW 2222H 72-BYTE ELEMENT 
EQu 5 zSIZE OF STACK DATA AREA IN WORDS 


END 
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7C_ Singly linked list manager 
(INLST, RMLST, NFOLLO) 


Manages a linked list of elements, each of which has the address of its 
successor (or 0 if it has no successor) in its first two bytes. Consists of the 
following routines: 


1. INLST inserts an element into the list, given its predecessor. 


2. RMLST removes an element from the list (if one exists), given its 
predecessor. 


3. NFOLLO determines the number of successors to a given element. 


Note that you can add or remove elements anywhere in the linked list. 
All you need is the address of the predecessor to provide the linkage. 


Procedures 


1. INLST obtains the link from the predecessor, changes that link to 
the new element, and sets the new element’s link to the one from the 
predecessor. 


2. RMLST first determines if a successor exists. If not, it sets the Carry 
flag. If so, it obtains that element’s link and puts it in the current 
element. This unlinks the element and removes it from the list. 


3. NFOLLO starts the element count at —1. It then repeatedly adds 1 
to the element count and replaces the current element with its link until 
it finds a zero link (indicating no successor). 


Entry conditions 


1. INLST 
Base address of predecessor in BX 
Base address of new element in AX 


2. RMLST 
Base address of predecessor in BX 


3. NFOLLO 
Base address of given element in BX 
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Exit conditions 


1. INLST 
Element inserted into list with predecessor linked to it. It is linked to the 
element that had been linked to the predecessor. 


2. RMLST 

If a successor exists, it is removed from the list, its base address is placed 
in register AX, and Carry is cleared. 

Otherwise, register AX = 0 and Carry = 1. 


3. NFOLLO 
Number of elements after given element in AX 


Example 
A typical sequence of operations on a linked list is: 
1. Initialize the empty list by setting the link in the header to 0. 


2. Insert an element into the list by using the base address of the 
header as the predecessor. 


3. Insert another element into the list by using the base address of the 
element just inserted as the predecessor. 


4. Remove the first element from the linked list by using the base 
address of the header as the predecessor. Note that we can remove 
either element from the list by supplying the appropriate predecessor. 


These routines require the user to keep track of the list’s length separ- 
ately. An alternative approach is to put the length in the header and 
update it during each insertion or removal. While NFOLLO can deter- 
mine the list’s length at any time, it is slow for long lists since it must 
examine each element. 


Reference 


Y. Langsam et al., Data Structures for Personal Computers, Prentice- 
Hall, Englewood Cliffs, NJ, 1985, pp. 164-189. 
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Registers used 

1. INLST: AX, DI 

2. RMLST: AX, DI, F 
3. NFOLLO: AX, BX, F 


Execution time 

1. INLST: 51 cycles 

2. RMLST: 61 cycles 

3. NFOLLO: 34 cycles per element plus 12 cycles overhead 


Program size 

1. INLST: 9 bytes 

2. RMLST: 15 bytes 
3. NFOLLO: 11 bytes 


Data memory required None 


Title Singly Linked List Manager 


Name: INLST, RMLST, NFOLLO 
Purpose: This program consists of three subroutines 


that manage a singly Linked list. 


INLST inserts an element into the linked 
list. 

RMLST removes an element from the Linked 
List. 

NFOLLO determines the number of elements 
following a given element. | 


Entry: INLST 
Predecessor's address in register BX 
Entry's address in register AX 
RMLST 
Predecessor's address in register BX 
NFOLLO 
Given element's address in register BX 


Exit: INLST 
Element added to List 
RMLST 
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If successor exists, 
its address is in register AX 


Carry = 0 
else 
register AX = 0 
Carry = 1 
NFOLLO 


Number of elements in register AX 


Registers Used: INLST 
AX ,DI,DX 
RMLST 
AX,DI,F 
NFOLLO 
AX ,BX,F 


Time: INLST 
51 cycles 
RMLST 
61 cycles 
NFOLLO 
34 cycles per element plus 12 cycles 
overhead 


Size: Program 35 bytes 


INSERT AN ELEMENT INTO A SINGLY LINKED LIST 


a 

7UPDATE LINKS TO INCLUDE NEW ELEMENT 

7LINK PREDECESSOR TO NEW ELEMENT 

7LINK NEW ELEMENT TO ELEMENT FORMERLY LINKED TO 
7 PREDECESSOR 


a 

MOV DI,AX 7SAVE NEW ELEMENT 

MOV AX, CBX] 7GET LINK FROM PREDECESSOR 
MOV CD11,AX 7 STORE LINK IN NEW ELEMENT 
MOV CBX1],DI 7STORE NEW ELEMENT AS LINK IN 


7 PREDECESSOR 


7 
sNOTE: IF LINKS ARE NOT IN FIRST TWO BYTES OF ELEMENTS, PUT 
, LINK OFFSET IN LAST 3 INSTRUCTIONS 


7 
7 EXIT 


a 
RET 


REMOVE AN ELEMENT FROM A SINGLY LINKED LIST 


, 
7EXIT INDICATING FAILURE (CARRY SET) IF NO SUCCESSOR 


7 


RMEXIT: 


a 
a 


e 
a 


, 
NFOLLO: 


CHKNXT: 
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MOV DI,CBX] 7GET LINK TO POSSIBLE SUCCESSOR 
TEST | DI,DI 7CHECK IF SUCCESSOR IS NULL (LINK=0) 
STC 7 INDICATE SUCCESSOR IS NULL 


JE RMEXIT 7BRANCH IF SUCCESSOR IS NULL 


7UNLINK REMOVED ELEMENT BY TRANSFERRING ITS LINK TO 

7 PREDECESSOR 

,NOTE: IF LINKS NOT IN FIRST TWO BYTES OF ELEMENTS, PUT 
7 LINK OFFSET IN STATEMENTS 


MOV AX,CDOII 7GET LINK FROM REMOVED ELEMENT 

MOV CBX] ,AX 7MOVE LINK TO PREDECESSOR 

CLC 7 INDICATE ELEMENT FOUND 

, 

7 EXIT 

MOV AX,DI 7EXIT WITH BASE ADDRESS OF REMOVED 
7 ELEMENT OR O IN AX 

RET 7CARRY = O IF ELEMENT FOUND, 1 
> IF NOT 


DETERMINE NUMBER OF SUCCESSORS TO A GIVEN ELEMENT 


, 
7COUNT ELEMENTS UNTIL ENCOUNTERING ONE WITH A ZERO LINK 
7 (NO SUCCESSOR) 


a 

MOV AX,-1 7START ELEMENT COUNT AT -1 

INC AX 7ADD 1 TO ELEMENT COUNT 

MOV BX, CBX] 7REPLACE ELEMENT WITH SUCCESSOR 

TEST BX ,BX 7TEST IF SUCCESSOR EXISTS 

JNZ CHKNXT 7BRANCH (CONTINUE) IF SUCCESSOR 
, EXISTS 

RET 7 EXIT 


SAMPLE EXECUTION 


7 
7INITIALIZE EMPTY LINKED LIST 


a 
MOV WORD PTR CLLHDR],O0 ;CLEAR LINKED LIST HEADER 
7 O INDICATES NO SUCCESSOR 


, 
7 INSERT AN ELEMENT INTO LINKED LIST 


a 

MOV AX,OFFSET ELEM? ;GET BASE ADDRESS OF ELEMENT 1 
MOV BX,OFFSET LLHDR ;GET PREDECESSOR (CHEADER) 

CALL INLST 7 INSERT ELEMENT INTO LIST 


’ 
7 INSERT ANOTHER ELEMENT INTO LINKED LIST 


a 


268 


7 
7 DATA 


LLHDR 
ELEM1 
ELEM2 
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MOV AX,OFFSET ELEM2 ;GET BASE ADDRESS OF ELEMENT 
MOV BX,OFFSET ELEM1 ;GET PREDECESSOR CELEMENT 1) 
CALL INLST 7 INSERT ELEMENT INTO LIST 


7 
;DETERMINE LENGTH OF LIST 


aw 

MOV BX,OFFSET LLHDR ;GET ADDRESS OF HEADER 

CALL NFOLLO 7DETERMINE NUMBER OF ELEMENTS 
7 FOLLOWING HEADER. RESULT 
; SHOULD BE CAX] = 2 


, 
;REMOVE FIRST ELEMENT FROM LINKED LIST 


v 

MOV BX,OFFSET LLHDR ;GET PREDECESSOR 

CALL RMLST 7;REMOVE ELEMENT FROM LIST 
7END UP WITH HEADER LINKED TO 
7 SECOND ELEMENT 
7AX CONTAINS ADDRESS OF 
, FIRST ELEMENT 


JMP Sc7Cc 7REPEAT TEST 

DW ? | 7LINKED LIST HEADER 

DW ? ;ELEMENT 1 - HEADER (LINK) ONLY 
DW ? ;ELEMENT 2 - HEADER (LINK) ONLY 


END 
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7D Doubly linked list manager 
(INSRDL, INSLDL, DELDL) 


Manages a doubly linked list of elements. Each element contains the 
address of its successor (or 0 if it has no successor) in its first two bytes. 
It contains the address of its predecessor (or 0 if it has no predecessor) in 
its next two bytes. The manager consists of the following routines: 


1. INSRDL inserts an element into the list, given its predecessor. That 
is, it inserts to the right. 


2. INSLDL inserts an element into the list, given its successor. That is, 
it inserts to the left. 


3. DELDL deletes an element from the list by linking its successor (if 
it has one) directly to its predecessor (if it has one) and vice versa. 


As with a singly linked list, you can add or remove elements anywhere. 
All you need is the address of the predecessor (for INSRDL) or suc- 
cessor (for INSLDL) to insert an element. No parameters are needed to 
delete an element, since each one contains links to both its successor 
and its predecessor. 


Procedures 


1. INSRDL first obtains the forward link from the predecessor. It then 
changes the links as follows: 
(a) The new element becomes the forward link of the predecessor. 
(b) The predecessor becomes the backward link of the new element. 
(c) The old forward link from the predecessor becomes the forward 
link of the new element. 
(d) The new element becomes the backward link of the predecessor’s 
successor if the old forward link was non-null. 


2. INSLDL works just like INSRDL except that it first obtains the 
backward link from the successor. Here, of course, the successor is 
known to exist, whereas the backward link could be null (i.e. the 
successor might not have a predecessor). 


3. DELDL first obtains the element’s forward and backward links. If a 
successor exists, it sets that element’s backward link to the deleted 
element’s backward link. If a predecessor exists, it sets that element’s 
forward link to the deleted element’s forward link. This unlinks the 
element, removing it from the list. An optional extension would be to 
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clear the element’s links so that no vestiges remain of its previous state. 


Entry conditions 


1. INSRDL 
Address of predecessor in register BX 
Address of new element in register AX 


2. INSLDL 
Address of successor in register BX 
Address of new element in register AX 


3. DELDL . 
Address of element to be deleted in register BX 


Exit conditions 


1. INSRDL 

Element added to list after its predecessor. The new links make it the 
successor of its predecessor and the predecessor of its predecessor’s 
successor if such an element exists. 


2. INSLDL 

Element added to list before its successor. The new links make it the 
predecessor of its successor and the successor of its successor’s pre- 
decessor if such an element exists. 


3. DELDL 

Element removed from the list. The new links make its successor the 
successor of its predecessor, and its predecessor the predecessor of its 
successor, assuming that these elements exist. 


Example 
A typical sequence of operations on a doubly linked list is: 
1. Initialize the empty list by setting both links in the header to 0. 


2. Insert an element into the list (with INSRDL) using the address of 
the header as its predecessor. 


3. Insert another element into the list (with INSRDL) by using the 
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address of the element just added as the predecessor. An alternative 
would be to insert the new element between the header and the previous 
element (with INSLDL). 


4. Delete the first element from the list with DELDL, leaving only the 
header and the second element. 


Note that we can delete either element from the list and can insert 
elements on either side of existing elements. 


Reference 


Y. Langsam et al., Data Structures for Personal Computers, Prentice- 
Hall, Englewood Cliffs, NJ, 1985, pp. 210-217. 





Registers used 

1. INSRDL: DI, F, SI 

2. INSLDL: DI, F, SI 

3. DELDL: BX, DI, F 


Execution time 

1. INSRDL: 96 cycles 
2. INSLDL: 96 cycles 
3. DELDL: 84 cycles 


Program size 

1. INDLST: 19 bytes 
2. INSLDL: 19 bytes 
3. DELDL: 19 bytes 


Data memory required None 
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; Title Doubly Linked List Manager 

; Name: INSRDL, INSLDL, DELDL 

’ 

; Purpose: This program consists of three subroutines 


that manage a doubly Linked list. 


ua 


INSRDL inserts an element into the doubly 
Linked List as the successor of a given 
element. 

INSLDL inserts an element into the doubly 
Linked List as the predecessor of a given 
element. 

DELDL removes an element from the 
doubly Linked list. 


Entry: INSRDL 
Predecessor in register BX 
New element in register AX 
INSLDL 
Successor in register BX 
New element in register AX 
DELDL 
Element in register BX 


Exit: INSRDL 
Element inserted into list after predecessor 
INSLDL 
Element inserted into list before successor 
DELDL 


Element removed from list 


Registers Used: INSRDL 
DI,F,SI 

INSLOL 
DI,F,SI 

DELDL 

DI,F 


Time: INSRDL 
96 cycles 
INSLDL 
96 cycles 
DELDL 
84 cycles 


Size: Program 57 bytes 


we We Me Be Te Me Ne Me Ne Ne Ne Me Te Ne Me Ne Me Be Me Ne Me Ne We Ne Ne Ne Me Ne Ns Ne Ne We Ne Ne Ne Ne We Vs Ne Ne Ne Ne 


7 
; INSERT AN ELEMENT INTO A DOUBLY LINKED LIST, GIVEN ITS 

; PREDECESSOR 

; THAT IS, INSERT AN ELEMENT TO THE RIGHT OF A GIVEN ELEMENT 
, 

I 


NSRDL: 
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7UPDATE LINKS TO INCLUDE NEW ELEMENT 

7MAKE NEW ELEMENT PREDECESSOR'S FORWARD LINK 

7MAKE PREDECESSOR NEW ELEMENT'S BACKWARD LINK 

7MOVE PREDECESSOR'S PREVIOUS FORWARD LINK TO NEW ELEMENT 


MOV DI ,AX 7 SAVE NEW ELEMENT 
MOV S1,CBX] 7GET FORWARD LINK FROM PREDECESSOR 
MOV CBX1,DI 7MAKE NEW ELEMENT INTO PREDECESSOR'S 
7 FORWARD LINK 
MOV CD1+21,BXx 7MAKE PREDECESSOR NEW ELEMENT'S 
7 BACKWARD LINK 
MOV Cd1],S1 7MOVE PREDECESSOR'S PREVIOUS FORWARD 


> LINK TO NEW ELEMENT 


7I1F PREDECESSOR HAS A SUCCESSOR, LINK IT TO NEW ELEMENT 
7THAT IS, MAKE NEW ELEMENT SUCCESSOR'S BACKWARD LINK 


TEST SI,SI 7CHECK IF SUCCESSOR EXISTS 
JZ INREXT 7BRANCH CEXIT) IF SUCCESSOR IS NULL 
MOV CS$1+2],D1 7MAKE NEW ELEMENT SUCCESSOR'S 


7 BACKWARD LINK 


, 

;NOTE: IF LINKS ARE NOT IN FIRST FOUR BYTES OF ELEMENTS, 
, PUT LINK OFFSETS IN ALL TRANSFERS 

7 


7 EXIT 


a 
RET 7 EXIT 


INSERT AN ELEMENT INTO A DOUBLY LINKED LIST, GIVEN ITS 
SUCCESSOR 
THAT IS, INSERT AN ELEMENT TO THE LEFT OF A GIVEN ELEMENT 


a 

7UPDATE LINKS TO INCLUDE NEW ELEMENT 

7MAKE NEW ELEMENT SUCCESSOR'S BACKWARD LINK 

7MAKE SUCCESSOR NEW ELEMENT'S FORWARD LINK 

7MOVE PREDECESSOR'S PREVIOUS BACKWARD LINK TO NEW ELEMENT 


MOV DI,AX 7 SAVE NEW ELEMENT 
MOV S1,CBX+2] 7GET BACKWARD LINK FROM SUCCESSOR 
MOV CBX+21,DI 7MAKE NEW ELEMENT INTO SUCCESSOR'S 
7 BACKWARD LINK 
MOV CDI],BX 7MAKE SUCCESSOR NEW ELEMENT'S 
7 FORWARD LINK 
MOV CD1+21,SI1 7MOVE SUCCESSOR'S PREVIOUS BACKWARD 


> LINK TO NEW ELEMENT 


, 
71F SUCCESSOR HAS A PREDECESSOR, LINK IT TO NEW ELEMENT 
7 THAT IS, MAKE NEW ELEMENT PREDECESSOR'S FORWARD LINK 


7 
TEST SI,SI 7CHECK IF PREDECESSOR EXISTS 
JZ INLEXT ,BRANCH IF PREDECESSOR IS NULL 
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MOV CS1],DI 7;MAKE NEW ELEMENT PREDECESSOR'S 
7 FORWARD LINK 


, 

;NOTE: IF LINKS ARE NOT IN FIRST FOUR BYTES OF ELEMENTS, 
; PUT LINK OFFSETS IN ALL TRANSFERS 

7 


aw 


7; EXIT 
7 
RET ;EXIT 

INLEXT: 

7 

; REMOVE AN ELEMENT FROM A DOUBLY LINKED LIST 

, 

DELDL: 
;GET ELEMENT'S FORWARD AND BACKWARD LINKS 
7 
MOV DI,CBX) ;GET ELEMENT'S FORWARD LINK 
MOV BX ,CBX+2] ;GET ELEMENT'S BACKWARD LINK 
7 
;1F ELEMENT HAS A SUCCESSOR, MOVE ELEMENT'S BACKWARD 
; LINK TO SUCCESSOR 
’ 
TEST DI,DI s;CHECK IF SUCCESSOR EXISTS 
JZ CHKPR ;BRANCH IF SUCCESSOR IS NULL 
MOV CDI+2],BX ;MOVE ELEMENT'S BACKWARD LINK 

; TO SUCCESSOR 

7 
;IF ELEMENT HAS A PREDECESSOR, MOVE ELEMENT'S FORWARD 
3; LINK TO PREDECESSOR 

CHKPR: 
TEST BX ,BX 7;CHECK IF PREDECESSOR EXISTS 
JZ DELEXT ;BRANCH IF PREDECESSOR IS NULL 
MOV CBxX],DI ;MOVE ELEMENT'S FORWARD LINK 

3; TO PREDECESSOR 

, 
s;NOTE: IF LINKS ARE NOT IN FIRST FOUR BYTES OF ELEMENTS, 
3 PUT LINK OFFSETS IN ALL TRANSFERS 
, 

DELEXT: 
RET ;EXIT 

7 

; SAMPLE EXECUTION 

’ 

7 

SC7D: 


, 
;INITIALIZE EMPTY DOUBLY LINKED LIST 


SUB AX ,AX 7CLEAR LINKED LIST HEADER 
MOV CHDRFWDJ,AX 7FORWARD LINK 
MOV CHDRBCKI ,AX 7BACKWARD LINK 


70 INDICATES NO LINK IN THAT 


7 
7; DATA 


HDRFWD 
HDRBCK 
ELEM1 
ELEM2 
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7 DIRECTION 


; 
7 INSERT ELEMENT INTO DOUBLY LINKED LIST 


MOV AX,OFFSET ELEM1 ;GET ELEMENT 1 

MOV BX,OFFSET HDRFWD ;GET PREDECESSOR (HEADER) 

CALL INSRDL 7 INSERT ELEMENT 1 INTO LIST AFTER 
7 HEADER 


, 
7 INSERT ANOTHER ELEMENT INTO DOUBLY LINKED LIST 


MOV AX,OFFSET ELEM2 ;GET ELEMENT 2 
MOV BX,OFFSET ELEM1 ;GET SUCCESSOR 
CALL INSLDL 7 INSERT ELEMENT 2 INTO LIST BEFORE 


7 ELEMENT 1 
, 
7REMOVE FIRST ELEMENT FROM DOUBLY LINKED LIST 


MOV BX,OFFSET ELEM1 7GET ELEMENT 

CALL DELDL ;REMOVE ELEMENT 1 FROM LIST 
7END UP WITH HEADER LINKED TO 
; ELEMENT 2 


JMP $C7D 7REPEAT TEST 

DW ? 7HEADER - FORWARD LINK 

DW ? 7HEADER - BACKWARD LINK 

DD ? 7ELEMENT 1 - HEADER (LINKS) ONLY 
DD ? 7ELEMENT 2 - HEADER (LINKS) ONLY 


END 
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7E Dynamic memory allocation 
(INITFS, ALLOCM, DALLOC) 





Allocates memory dynamically in blocks of arbitrary size. The free 
space is organized as a linked list; each element has a header containing 
its size and a link to the next element. Consists of the following routines: 


1. INITFS initializes the free space as a single block with a null link. 
2. ALLOCM obtains a block of given size from the list. 
3. DALLOC releases a block of given size to the list. 


These routines allow you to obtain and release memory blocks of any 
size. 


Procedures 


1. INITFS first determines if there is enough free memory for a header 
and some data. If not, it sets Carry. If so, it clears the link to the next 
element, sets the size of the free area to the given size minus the 
header’s size (4 bytes), and clears Carry. 


2. ALLOCM searches the list for elements large enough to satisfy the 
request. It accepts either the element closest in size to the request or the 
first element within a threshold of the request size. If it finds such an 
element, it reduces its size by the request and returns a pointer to the 
allocated memory. The pointer is set to the furthest available part of the 
block to maintain the header. The Carry is cleared if the request can be 
satisfied and set otherwise. 


3. DALLOC first determines if enough memory has been released to 
hold a header and some data. If not, it sets Carry. If so, it links the 
released area to the initial element, forms its header, and clears Carry. 
This links the released area to the element to which the initial element 
had been linked; its size is the amount of memory released minus the 
size of the header. 


Entry conditions 


1. INITFS 
Base address of free area in BX 
Size of free area in bytes in AX 


2. ALLOCM 
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Base address of free area in BX 
Size of request in bytes in AX 


3. DALLOC 

Base address of free area in BX 
Base address of released area in DI 
Size of released area in AX 


Exit conditions 


1. INITFS 
Free area established as a single block with a header containing a null 
link. Its size is the number of bytes allocated minus the header’s size. 
Carry = 0 if enough space was allocated for the header and some data, 
and 1 if not. 


2. ALLOCM 

If there is a block large enough to satisfy the request, the base address of 
the selected block is returned in BX and Carry = 0. The selected block 
is either the one closest in size to the request or the first one that has a 
size within a threshold of the request. Otherwise, Carry = 1. 


3. DALLOC 
If enough memory was released to hold a header and some data, it is 
linked to the list and Carry = 0. Otherwise, Carry = 1. 


Example 
A typical sequence of memory allocations and releases is: 
1. Make the free space into a single list element by calling INITFS. 


2. Obtain memory for an overall program’s temporary storage by 
calling ALLOCM. 


3. Obtain memory for a subprogram’s temporary storage by calling 
ALLOCM. 


4. Free the memory used by the subprogram by calling DALLOC 
when it finishes running. 


5. Obtain memory for a second subprogram’s temporary storage by 
calling ALLOCM. 
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6. Obtain memory for a subsubprogram’s temporary storage by calling 
ALLOCM. 


7. Free the memory used by the subsubprogram by calling DALLOC 
when it finishes running. 


8. Free the memory used by the second subprogram by calling DAL- 
LOC when it finishes running. 


9. Free the memory used by the overall program by calling DALLOC 
when it finishes running. 


Note that, even if the sequence allocates and releases equal amounts of 
memory, the system will not return to its initial state. Released blocks 
will become additional elements with their own headers rather than 
being combined into a single element. Obviously, this fragments the 
free memory, as well as resulting in a large number of headers. Eventu- 
ally, the system is unable to grant any sizeable request for memory. In 
real applications, this usually forces the running of a compaction or 
‘garbage collection’ routine that combines small blocks or returns the 
system to its initialized state as a single large block of free memory. 

There are many methods for efficient allocation and deallocation of 
memory (see the references). The one we have implemented here is to 
search for the block that is closest in size to the request or has a size 
within a threshold of the request. This approach avoids breaking up 
large blocks to satisfy small requests. The threshold prevents the alloca- 
tion routine from wasting time searching for a closer fit that results in 
only a marginal improvement. 


References 


M. Augenstein and A. Tenenbaum, Data Structures and PLII Pro- 
gramming, Prentice-Hall, Englewood Cliffs, NJ, 1979, Chapter 10. 
There is also a Pascal version of this book from the same publisher. 

D. E. Knuth, The Art of Computer Programming, 2nd Ed. Volume 1: 
Fundamental Algorithms, Addison-Wesley, Reading, MA, 1973, pp. 
435-455. 


Registers used 
1. INITFS: AX, F 


we Ne 


we 


we We Te Ne Ne Ne Ne Ne Ne We Ne Ne Ne Ne 
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2. ALLOCM: BX, DI, DX, F, SI 
3. DALLOC: AX, F 


Execution time 
1. INITFS: 51 cycles 


2. ALLOCM: 68-86 cycles per block that must be examined plus 54 
cycles overhead 


3. DALLOC: 77 cycles 


Program size 

1. INITFS: 15 bytes 

2. ALLOCM: 51 bytes 
3. DALLOC: 18 bytes 


Data memory required None 


Special case An attempt to initialize or release an amount of memory 
that is less than or equal to the size of the header will result in an 
immediate return with the Carry set to 1. 


Title Dynamic Memory Allocation 
Name: INITFS, ALLOCM, DALLOC 
Purpose: This program consists of three subroutines 


that allocate memory dynamically, that is, on 
a demand basis in units of variable size. 


INITFS initializes the free memory area as 
a linked list with a single element. 

ALLOCM allocates a block of memory of specified 
size. It searches the list for an element 
whose size most closely matches the request. 

DALLOC releases a block of memory of specified 
size 


Entry: INITFS 


Base address of free area in BX 
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Size of free area in bytes in AX 
ALLOCM 

Base address of free area in BX 

Size of request in bytes in AX 
DALLOC 

Base address of free memory in BX 

Base address of released area in DI 

Size of released area in AX 


Exit: INITFS 
Free area set up as a linked List consisting 
of a single element 
ALLOCM 
If a block of sufficient size exists, 
base address of selected block is in 
register BX 


Carry = 0 
else 
Carry = 1 


If more than one such block exists, the 
one closest in size to the request or the 
first one encountered within a threshold of 
the size of the request is allocated. 

DALLOC 

If the released block is large enough, it is 
placed in the Linked List 
Carry = 0 

else 
Carry = 1 


Registers Used: INITFS 
AX,F 
ALLOCM 
BX,DI,DX,F,SI 
DALLOC 
AX,F 


Time: INITFS 
51 cycles 
ALLOCM 
68-86 cycles per block that must be examined 
plus 54 cycles overhead 


Ne “Ne Ne We Ne Nea Ne Ns Ns Noe Ns We Ne Ns Ne Ne We Ne Ne Ne Ve Ne We We Ws Ne We Ve Ve Be We Vs We We Ws Vs Ns No Ne Ws We We We We We We Ws 


DALLOC 
77 cycles 
Size: Program 84 bytes 
7 
DECLARATIONS 
7 
HEADLN EQU 4 7; LENGTH OF HEADER IN BYTES 
DIFLMT EQU 20H 7BLOCK SIZE DIFFERENCE LIMIT 


SIZE DIFFERENCES LESS THAN THIS 
7 LIMIT ARE CONSIDERED SMALL ENOUGH 
7 TO HALT THE BLOCK SEARCH. THIS 
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LIMIT HELPS AVOID WASTING TIME 
WHEN NLY A MINOR IMPROVEMENT IS 
POSSIBLE. IF THE LIMIT IS QO, THE 
BLOCK WITH THE SMALLEST SIZE 
DIFFERENCE IS CHOSEN. 


we Ts Ne Ns NS 


s 
A 


; INITIALIZE FREE SPACE AS A LINKED LIST WITH A SINGLE ELEMENT 
7 
INITFS: 


;CHECK IF ENOUGH SPACE AVAILABLE FOR HEADER 
3IF NOT COR JUST ENOUGH), EXIT WITH CARRY SET 


SUB AX,HEADLN 71S THERE ENOUGH ROOM FOR HEADER? 
JBE EREXIT 7BRANCH TO ERROR EXIT IF NOT 


Ig 

;SET UP HEADER FOR SINGLE BLOCK OF FREE MEMORY: 

3 LINK TO NEXT ELEMENT = NULL (0) IN FIRST TWO BYTES 
3 SIZE OF AREA = ALLOCATED AREA MINUS HEADER SIZE IN 


; NEXT TWO BYTES 

a 

MOV CBX+2],AX 7SET AREA SIZE IN HEADER 

SUB AX ,AX ;CLEAR LINK (MAKE IT NULL) 
zTHIS ALSO CLEARS CARRY, INDICATING 
7 NO ERRORS 

MOV CBX1,AX 


RET 


a 
7ERROR EXIT WITH CARRY SET 


a 


EREXIT: 
STC 7ERROR - BLOCK TOO SMALL 
RET 
7 
; ALLOCATE A BLOCK OF MEMORY 
ALLOCM: 
;INITIALIZE VARIABLES FOR BLOCK SIZE SEARCH 
7 
MOV DX,OFFFFH INITIALIZE SMALLEST DIFFERENCE 
7 REGISTER TO MAXIMUM DIFFERENCE 
SUB DI,DI ;INITIALIZE BLOCK ADDRESS TO NULL 
3;CHECK NEXT ELEMENT TO SEE IF IT CAN SATISFY REQUEST 
, 
GETBSZ: 
MOV $1,CBX+2] ;GET BLOCK SIZE 
CMP S1,AX 71S NEXT ELEMENT LARGE ENOUGH? 
JB CHKNXT 7BRANCH IF IT IS TOO SMALL 
SUB SI ,AX ;CALCULATE SIZE DIFFERENCE 
CMP SI,DIFLMT 7COMPARE DIFFERENCE TO THRESHOLD 
JBE GETSP 7 JUMP IF DIFFERENCE <= THRESHOLD 
CMP SI ,DX ;COMPARE TO SMALLEST FOUND DIFFERENCE 
JAE CHKNXT 7; JUMP IF NEW DIFFERENCE >= OLD 


; DIFFERENCE SO NOT WORTH KEEPING 
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MOV DX,SI 7SAVE NEW DIFFERENCE AS SMALLEST 
MOV DI ,BX 7SAVE BASE ADDRESS OF BLOCK WITH 
7 SMALLEST SIZE DIFFERENCE 


7CHECK IF THERE ARE MORE BLOCKS IN LIST 


a 


MOV BX, CBX] ,GET LINK TO NEXT ELEMENT 
TEST BX ,BX 71S THERE A NEXT ELEMENT? 
JNZ GETBSZ 7BRANCH IF THERE IS (LINK NONZERO) 


, 
7NO MORE ELEMENTS - CHECK IF A BLOCK WAS FOUND 


a 

TEST DI,DI 7CHECK IF BLOCK FOUND 
JZ AERXIT 7JUMP IF NO BLOCK FOUND 
MOV BX,DI 7GET BLOCK ADDRESS 


7 

7BLOCK WITH SMALLEST SIZE DIFFERENCE FOUND 

7ALLOCATE THAT BLOCK'S LAST BYTES 

7REDUCE BLOCK'S SIZE BY THE NUMBER OF BYTES ALLOCATED 


. 
v7 


MOV CBX+2],SI ;NEW SIZE IS OLD SIZE MINUS SIZE 
7 OF REQUEST 

ADD BX,SI 7BASE ADDRESS OF ALLOCATED AREA = 

ADD BX,HEADLN 7 BASE ADDRESS OF ELEMENT + 


, DIFFERENCE + HEADER LENGTH 

7THIS ALLOCATES THE END OF THE DATA 
7 AREA, LEAVING THE FIRST PART 

7 (CINCLUDING THE HEADER) AVAILABLE 
7 FOR LATER REQUESTS 


7CLEAR CARRY TO INDICATE SUCCESS AND EXIT 


a 

CLC 7CLEAR CARRY 
RET 

, 

,SET CARRY TO INDICATE FAILURE AND EXIT 


a 


STC 7NO BLOCK FOUND, SO SET CARRY 
RET 


,DEALLOCATE A BLOCK OF MEMORY 


a 
DALLOC: 


7 
zERROR EXIT IF RELEASED BLOCK TOO SMALL TO HOLD HEADER 
7 OR JUST LARGE ENOUGH FOR IT 


SUB AX,HEADLN 71S BLOCK LARGE ENOUGH FOR HEADER? 
JBE EREXIT 7BRANCH IF NOT LARGE ENOUGH 


a 
;PUT RELEASED BLOCK IN LINKED LIST - LINK IT TO BLOCK AT 


EREXIT: 
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> BOTTOM OF FREE AREA AND ESTABLISH ITS SIZE 


MOV CD1+21,AXx ,BLOCK SIZE = RELEASED AREA - SIZE 
7 OF HEADER 

MOV AX, CBX] 7GET LINK FROM BLOCK AT BOTTOM OF 
7 FREE AREA 

MOV CBX1,DI1 7LINK RELEASED BLOCK TO BLOCK AT 
7 BOTTOM 

MOV CD11,AX 7LINK RELEASED BLOCK TO BLOCK THAT 


7 WAS LINKED TO BOTTOM 
7CLEAR CARRY TO INDICATE SUCCESS AND EXIT 


7 
CLC 
RET 


a 
7ERROR EXIT - SET CARRY - BLOCK TOO SMALL 


STC 7ERROR - BLOCK TOO SMALL 
RET 


SAMPLE EXECUTION 


, 
7INITIALIZE FREE MEMORY AREA 


MOV BX,OFFSET FREEM ;GET BASE ADDRESS OF FREE AREA 
MOV AX,FSIZE 7GET SIZE OF FREE AREA (100 HEX BYTES) 
CALL INITFS 7 INITIALIZE FREE AREA AS LINKED LIST 
MOV AX,20H 7REQUEST 20 HEX BYTES 
CALL ALLOCM 7THIS WILL ALLOCATE BYTES EO-FF HEX 
7 ADDRESS FREEM+E0OH RETURNED IN BX 
MOV BX,OFFSET FREEM ;GET BASE ADDRESS OF FREE AREA 
MOV AX,30H ,REQUEST 30 HEX BYTES 
CALL ALLOCM 7THIS WILL ALLOCATE BYTES BO-DF HEX 
, ADDRESS FREEM+BOH RETURNED IN BX 
MOV BX,OFFSET FREEM ;GET BASE ADDRESS OF FREE AREA 
MOV DI,OFFSET FREEM+OEQH ;RELEASE 20 HEX BYTES STARTING 
7 AT FREEM+EQH 
MOV AX,20H 
CALL DALLOC 7 THE RESULT HERE WILL BE AN 
7 AREA OF BO HEX BYTES STARTING 
7 AT ADDRESS FREEM. ONLY AC OF 
, THESE BYTES WILL BE AVAILABLE 
7 SINCE THE FIRST 4 ARE USED AS 
7 A HEADER. THIS AREA WILL BE 
7 LINKED TO AN AREA OF 20 HEX 
7 BYTES (1C AVAILABLE) STARTING 
7 AT ADDRESS FREEM+QE0OH 
, 
MOV BX,OFFSET FREEM ;GET BASE ADDRESS OF FREE AREA 


MOV AX,10H 7REQUEST 10H BYTES 
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7DATA 


a 
FSIZE 
FREEM 


Assembly language subroutines for the 8086 


CALL ALLOCM ;THIS WILL ALLOCATE BYTES FO-FFH 
;ADDRESS FREEM+FOH RETURNED IN BX 
7 

JMP SC7E 7REPEAT TEST 

EQU 100H 7SIZE OF FREE AREA IN BYTES 

DB 100H DUP (7?) 7 FREE AREA 


END 


8 input/output 


8A Read aline from a terminal 
(RDLINE) 


Reads a line of ASCII characters ending with a carriage return and saves 
it in a buffer. Defines the control characters Control H (08 hex), which 
deletes the latest character, and Control X (18 hex), which deletes the 
entire line. Sends a bell character (07 hex) to the terminal if the buffer 
overflows. Echoes each character placed in the buffer. Echoes non- 
printable characters as an up-arrow or caret (~) followed by the printable 
equivalent (see Table 8-1). Sends a new line sequence (typically carriage 
return, line feed) to the terminal before exiting. 
RDLINE assumes the following system-dependent subroutines: 


1. RDCHAR reads a character from the terminal and puts it in register 
AL. 


2. WRCHAR sends the character in register AL to the terminal. 
3. WRNEWL sends a new line sequence to the terminal. 


These subroutines are assumed to change all user registers except BP, SS, 
and DS (in accordance with Intel’s PL/M-86 interface as described in An 
Introduction to ASM86, Intel Corporation, Santa Clara, CA, 1981). 
RDLINE is an example of a terminal input handler. The control 
characters and I/O subroutines in an actual system will, of course, be 
computer-dependent. A specific example in the listing is for an IBM PC 
running MS-DOS. The example works for any version of DOS, but the 
comments assume Version 2.0 or later in which I/O functions refer to 
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standard input and output devices (which can be redirected) rather than 
to the keyboard and video display specifically. Table 8-2 lists common 
MS-DOS function calls using interrupt 21 hex. For more information on 
IBM PC and MS-DOS functions, see P. Norton and R. Wilton, Pro- 
grammer’s Guide to the IBM PC and PS/2, Microsoft Press, Redmond, 
WA, 1989. 


Table 8-1: ASCII control characters and printable equivalents 











Name Hex value Printable equivalent 
NUL 00 Control @ 
SOH 01 Control A 
STX 02 Control B 
ETX 03 Control C 
EOT 04 Control D 
ENQ 0S Control E 
ACK 06 Control F 
BEL 07 Control G 
BS 08 Control H 
HT 09 Control I 
LF 0A Control J 
VT OB Control K 
FF OC Control L 
CR 0D Control M 
SO OE Control N 
SI OF Control O 
DLE 10 Control P 
DC1 11 Control Q 
DC2 12 Control R 
DC3 13 Control S$ 
DC4 14 Control T 
NAK 15 Control U 
SYN 16 Control V 
ETB 17 Control W 
CAN 18 Control X 
EM 19 Control Y 
SUB 1A Control Z 
ESC 1B Control [ 
FS 1C Control \ 
GS 1D Control | 
RS 1E Control * 
VS 1F Control _ 
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Table 8-2: Common DOS functions for MS-DOS 2.0 (invoked with 


INT 21H) 

Function Function Input Output 

number name parameters parameters 

(hex in 

Reg AH) 

0 Terminate program None None 

1 Keyboard input with echo None AL = ASCII character 

2 Display output DL = ASCII character None 

3 Serial input None AL = ASCII character 

4 Serial output DL = ASCII character None 

5 Printer output DL = ASCII character None 

6 Direct console input DL = FF. AL = ASCII character if 
ready and ZF = 1; if no 
char is available, AL = 0 
and ZF = 0 

6 Direct console output DL = ASCII character None 

7 Keyboard input without None AL = ASCII character 

echo 

9 Print string DX = String address. None 

A Read keyboard buffer DX = Buffer address None 

B Get keyboard status None AL = 00 (no character) 


or AL = FF (char ready) 


Procedure The program starts the loop by reading a character. If it is 
a carriage return, the program sends a new line sequence to the terminal 
and exits. Otherwise, it checks for the special characters Control H and 
Control X. If the buffer is not empty, Control H makes the program 
reduce the buffer pointer and character count by 1 and send a backspace 
string (cursor left, space, cursor left) to the terminal. Control X makes 
the program delete characters until it empties the buffer. 

If the character is not special, the program determines whether the 
buffer is full. If so, the program sends a bell character to the console. If 
not, the program stores the character in the buffer, echoes it to the 
display, and increments the character count and buffer pointer. 

Before echoing a character or deleting one from the display, the 
program must determine whether it is printable. If not (i.e. it is a 
non-printable ASCII control character), the program must display or 
delete two characters, the control indicator (up-arrow or caret) and the 
printable equivalent (see Table 8-1). Note, however, that the character 
is stored in its non-printable form. 
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Entry conditions 


Base address of buffer in register BX 
Length (size) of buffer in bytes in register AL 


Exit conditions 


Number of characters in the buffer in register AL 


Examples 
1. Data: 


Result: 


2. Data: 


Result: 


Character 
typed 


D 
M 
Control H 
N 
Control X 


4meaZz mM 


Line from keyboard is ‘ENTERcr’ 

Character count = 5 (line length) 

Buffer contains ‘ENTER’ 

‘ENTER’ echoed to terminal, followed by the new line 
sequence (carriage return, line feed) 

Note that the ‘cr’ (carriage return) character does not 
appear in the buffer. 


Line from keyboard is ‘DMcontrolHNcontrolXENTET- 
controlHRcr’ 

Character count = 5 (length of final line after deletions) 
Buffer contains ‘ENTER’ 
‘DMBackspaceStringNBackspaceStringBackspaceS- 
tringENTETBackspaceStringR’ sent to screen, followed 
by a new line sequence. The backspace string deletes a 
character from the screen and moves the cursor left one 


column. 


The sequence of operations is as follows: 


Initial Final Sent to 

buffer buffer terminal 

empty ‘D’ D 

‘D’ ‘DM’ M 

‘DM’ ‘D’ backspace string 
‘D’ ‘DN’ N 

‘DN’ empty 2 backspace strings 
empty *B’ E 

‘B’ ‘EN’ N 

‘EN’ ‘ENT’ T 

‘ENT’ ‘ENTE’ E 

‘ENTE’ ‘ENTET’ T 
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Control H ‘ENTET’ ‘ENTE’ backspace string 
R ‘ENTE’ ‘ENTER’ R 
cr ‘ENTER’ ‘ENTER’ New line string 


What happened is the following: 


(a) The operator types ‘D’, ‘M’. 

(b) The operator sees that ‘M’ is wrong (it should be ‘N’), presses 
control H to delete it, and types ‘N’. 

(c) The operator then sees that the initial ‘D’ is also wrong (it should be 
‘E’). Since the error is not the latest character, the operator presses 

~ Control X to delete the entire line, and then types ‘ENTET’. 

(d) The operator notes that the second “T” is wrong (it should be 
‘R’), presses Control H to delete it, and types ‘R’. 

(e) The operator types a carriage return to end the line. 


Registers used AX, BX, CX, DI, DX, F, SI 


Execution time Approximately 152 cycles to put an ordinary charac- 
ter in the buffer, not considering the execution time of either RDCHAR 
or WRCHAR. 


Program size 72 bytes 
Data memory required None 


Special cases 


1. Ifthe buffer is empty, typing Control H (delete one character) or 
Control X (delete the entire line) has no effect. 


2. If the program receives an ordinary character when the buffer is 
full, it discards the character and sends a bell character to the terminal 
(ringing the bell). 





Title Read Line 
Name: RDLINE 


Purpose: Read characters from an input device until 
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7 EQUATES 
BELL 
BSKEY 

CR 

CRKEY 


CSRLFT 
CTLOFF 


DELKEY 
LF 
SPACE 


STERM 
UPARRW 


DIRIO 


INPUT 
PSTRG 


RDLINE: 
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Entry: 


Exit: 


Registers Used: 


Times: 


Size: 


EQU 
EQU 
EQU 
EQU 


EQU 
EQU 


EQU 
EQU 
EQU 


EQU 
EQU 


EQU 
EQU 
EQU 


07H 
08H 
ODH 
ODH 


08H 
40H 


18H 
OAH 
20H 
24H 
SEH 


OFFH 


a carriage return is found. Defines the 
control characters 
Control H -- Delete latest character. 
Control X -- Delete all characters. 
Any other control character is placed in 
the buffer and displayed as the equivalent 
printable ASCII character preceded by an 
up-arrow or caret. 


Base address of buffer 
Length of buffer in bytes 


Register BX 
Register AL 


Register AL = Number of characters in buffer 
AX,BX,CX,DI,DX,F,SI 
Not applicable. 


Program 72 bytes 


7BELL CHARACTER (MAKES IBM PC BEEP) 
7BACKSPACE KEYBOARD CHARACTER 

7CARRIAGE RETURN FOR CONSOLE 

7CARRIAGE RETURN KEYBOARD CHARACTER 

7 (CENTER KEY ON PC) 

7MOVE CURSOR LEFT FOR CONSOLE 

7OFFSET FROM CONTROL CHARACTER TO PRINTED 

7 FORM (E.G., CONTROL-X TO X) 

,DELETE LINE KEYBOARD CHARACTER 

7LINE FEED FOR CONSOLE 

7 SPACE CHARACTER CALSO MARKS END OF CONTROL 
7 CHARACTERS IN ASCII SEQUENCE) 

7MS-DOS STRING TERMINATOR (DOLLAR SIGN) 
7UP-ARROW OR CARET USED AS CONTROL INDICATOR 


7MS-DOS DIRECT I/0 FUNCTION 

7 INPUT CODE FOR MS-DOS DIRECT I/0 FUNCTION 
7MS-DOS PRINT (DISPLAY) STRING FUNCTION 

7 THIS FUNCTION PRINTS A STRING ENDING IN $ 
7 ON THE STANDARD OUTPUT DEVICE, NOT ON 

7 THE PRINTER 


; 
7 INITIALIZE CHARACTER COUNT TO ZERO, SAVE BUFFER LENGTH 
7 AND BUFFER POINTER 


SUB 
MOV 
MOV 
CLD 


CL,CL 
CH,AL 
DI ,BX 


a 
7READ LOOP 
7READ CHARACTERS UNTIL A CARRIAGE RETURN IS TYPED 


a 


7CHARACTER COUNT = 0 

7 SAVE BUFFER LENGTH 

7 SAVE BUFFER POINTER 
,SELECT AUTOINCREMENTING 


RDLOOP: 


RDLP1: 


DEL1: 


RDLP2: 


STRCH: 
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CALL RDCHAR 7READ CHARACTER FROM KEYBOARD 
7DO0ES NOT ECHO CHARACTER 


, 
CHECK FOR CARRIAGE RETURN, EXIT IF FOUND 


a 
CMP AL,CR 7CHECK FOR CARRIAGE RETURN 
JE EXITRD 7END OF LINE IF CARRIAGE RETURN 


7CHECK FOR BACKSPACE AND DELETE CHARACTER IF FOUND 


s 

CMP AL,BSKEY 7CHECK FOR BACKSPACE KEY 

JNE RDLP1 7BRANCH IF NOT BACKSPACE 

CALL BACKSP 71F BACKSPACE, DELETE ONE CHARACTER 


JMP RDLOOP 7THEN START READ LOOP AGAIN 


,;CHECK FOR DELETE LINE CHARACTER AND EMPTY BUFFER IF FOUND 


7 


CMP AL,DELKEY 7CHECK FOR DELETE LINE KEY 
JNE RDLP2. 7BRANCH IF NOT DELETE LINE 
CALL BACKSP 7DELETE A CHARACTER 

JNZ DEL1 7CONTINUE UNTIL BUFFER EMPTY 


7THIS ACTUALLY BACKS UP OVER EACH 
7 CHARACTER RATHER THAN JUST MOVING 
7 UP A LINE 

JMP RDLOOP 


7 

7KEYBOARD ENTRY IS NOT A SPECIAL CHARACTER 

7,CHECK IF BUFFER IS FULL 

7I1F FULL, RING BELL (BEEP ON IBM PC) AND CONTINUE 
71F NOT FULL, STORE CHARACTER AND ECHO 


s 
7 


CMP CL,CH 7COMPARE COUNT AND BUFFER LENGTH 
JB STRCH 7JUMP IF BUFFER NOT FULL 

MOV AL,BELL 7BUFFER FULL, RING BELL 

CALL WRCHAR 


JMP RDLOOP 7 THEN CONTINUE THE READ LOOP 


;BUFFER NOT FULL, STORE CHARACTER 


a 


STOSB 7STORE CHARACTER IN BUFFER 
7 AND ADD 1 TO BUFFER POINTER 


INC CL 7ADD 1 TO CHARACTER COUNT 


7 IF CHARACTER IS CONTROL, THEN OUTPUT 
7 UP-ARROW FOLLOWED BY PRINTABLE EQUIVALENT 


a7 
CMP AL,SPACE ;CONTROL CHARACTER IF CODE IS 
; BELOW SPACE (20 HEX) IN ASCII 
| ; SEQUENCE 
JAE PRCH ;JUMP IF A PRINTABLE CHARACTER 


PUSH AX 7 SAVE NONPRINTABLE CHARACTER 
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MOV AL,UPARRW 7WRITE UP-ARROW OR CARET 
CALL WRCHAR 
POP AX 7RECOVER NONPRINTABLE CHARACTER 
ADD AL,CTLOFF 7CHANGE TO PRINTABLE FORM 
PRCH: 
CALL WRCHAR 7ECHO CHARACTER TO TERMINAL 
JMP RDLOOP 7 THEN CONTINUE READ LOOP 
7 EXIT 
7SEND NEW LINE SEQUENCE CUSUALLY CR,LF) TO TERMINAL 
7LINE LENGTH = CHARACTER COUNT 
EXITRD: 
CALL WRNEWL 7ECHO NEW LINE SEQUENCE 
MOV AL,CL 7LINE LENGTH = CHARACTER COUNT 
RET 


SKKEKEKEKEKRKEKKEKRERKEEREEKEKEEEKERKREKKEEKEEKEKKKKKKK KKK KK 


a 
a 
7 THE FOLLOWING SUBROUTINES ARE TYPICAL EXAMPLES FOR AN 
7 IBM PC RUNNING MS-DOS CANY VERSION) 

a 

a 


CKKKEKKKEKKEKEKEKEEEKREEEREKREREKREREREKREEKKKKKKKKKKK KKK 


ZHI KIKI I KIKI IK EHR KEKEII KERIKERI EERIE AAAI REE EEREEKRA KE 
7ROUTINE: RDCHAR 

7PURPOSE: READ A CHARACTER FROM STANDARD INPUT BUT DO NOT 
; ECHO TO STANDARD OUTPUT 

7ENTRY: NONE 
7EXIT: REGISTER AL = CHARACTER 

7REGISTERS USED: AX,DL,F 

ZI K IKI KEI IKE I IER III KEI IIHR RATER AAR REA RRERERE KK 


RDCHAR: 


, 
7WAIT FOR CHARACTER FROM KEYBOARD 
7RETURN WITH IT IN REGISTER AL 


RDWAIT: 
MOV AH,DIRIO 7DIRECT KEYBOARD/DISPLAY 1/0 
MOV DL,INPUT 7 INDICATE INPUT 
INT 21H 7READ CHARACTER FROM KEYBOARD 
TEST AL,AL 7CHECK IF A CHARACTER CAL = O IF NOT) 
JZ RDWAIT 7BRANCH (LOOP) IF NO CHARACTER 
RET 7RETURN WITH CHARACTER IN REGISTER AL 


ZK IKI IKI KEIR IHRE IKK KIER EERE AR RE RERRERAREEREEEAEKE 
;ROUTINE: WRCHAR 

7,PURPOSE: WRITE CHARACTER TO STANDARD OUTPUT DEVICE 

7ENTRY: REGISTER AL = CHARACTER 

7EXIT: NONE 

7REGISTERS USED: AX,DL,F 

ZHI KIKI KHER ITERATE REI KER IRR REKREREEREREEREEEKEAK KEKE KE 
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WRCHAR: 


, 
7WRITE A CHARACTER TO STANDARD OUTPUT DEVICE 


a 

MOV AH,DIRIO 7DIRECT KEYBOARD/DISPLAY 1/0 

MOV DL,AL 7 INDICATE OUTPUT - CHARACTER IN DL 
INT 21H 7WRITE CHARACTER ON STANDARD OUTPUT 
RET 


ZRH HII III III III KIKI IKK KEKE RE AEKRIKKEAIEKSEEEKKEER KR KIE 
7ROUTINE: WRNEWL 

,PURPOSE: ISSUE NEW LINE SEQUENCE TO VIDEO DISPLAY (STANDARD OUTPUT) 
; NORMALLY, THIS SEQUENCE IS A CARRIAGE RETURN AND 

; LINE FEED, BUT SOME OUTPUT DEVICES REQUIRE ONLY 

; A CARRIAGE RETURN. 

7ENTRY: NONE 
7EXIT: NONE 

7REGISTERS USED: DX,F 

FBR KI IIIT KIKI II III HII IIIT HATTIE EEE ER ERE KK KKK K 


WRNEWL: 

+ SEND NEW LINE STRING TO STANDARD OUTPUT 

CALL WRSTRG 7SEND STRING TO STANDARD OUTPUT 
NLSTRG DB CR,LF,STERM 7NEW LINE STRING WITH $ TERMINATOR 


FRR IRIE IKI IKKE EEK EKER ERE REE KEKE EERE KKK 
7ROUTINE: BACKSP 

7PURPOSE: PERFORM A DESTRUCTIVE BACKSPACE 

7ENTRY: CL = NUMBER OF CHARACTERS IN BUFFER 


; DI = NEXT AVAILABLE BUFFER ADDRESS 
7EXIT: IF NO CHARACTERS IN BUFFER 

; Z= 1 

; ELSE 

; zZ = 0 


; CHARACTER REMOVED FROM BUFFER 
,REGISTERS USED: AX,CL,DI,DX,F 
FRR KKK IKKE IKK I IK HIKER AIK ERA RRR RRA KEE REAR KI 


BACKSP: 
, 
7CHECK FOR EMPTY BUFFER 


TEST CL,CL 7TEST NUMBER OF CHARACTERS 
JZ EXITBS ;BRANCH CEXIT) IF BUFFER EMPTY 


7OUTPUT BACKSPACE STRING 
7 TO REMOVE CHARACTER FROM DISPLAY 


7 

DEC DI 7DECREMENT BUFFER POINTER 
MOV AL,CD1] 7GET CHARACTER 

CMP AL,SPACE 7IS IT A CONTROL CHARACTER? 


JAE BS1 7NO, BRANCH, DELETE ONLY ONE CHARACTER 
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MOV DX,OFFSET BSSTRG ;YES, DELETE 2 CHARACTERS 
; CUP-ARROW AND PRINTABLE EQUIVALENT) 
CALL WRSTRG 7,WRITE BACKSPACE STRING 
BS1: MOV DX,OFFSET BSSTRG 
CALL WRSTRG 7WRITE BACKSPACE STRING 


, 
7 SUBTRACT 1 FROM CHARACTER COUNT 


DEC CL 7ONE LESS CHARACTER IN BUFFER 
EXITBS: 
RET 


7 

DESTRUCTIVE BACKSPACE STRING FOR VIDEO DISPLAY 

;MOVES CURSOR LEFT, PRINTS SPACE OVER CHARACTER, MOVES 
7 CURSOR LEFT 

;NOTE: STERM ($) IS MS-DOS STRING TERMINATOR 


a 
BSSTRG DB CSRLFT,SPACE,CSRLFT,STERM 


FERRER KEKE KERR EERE REE ERE EKKEKEKKEEKKREREKKKEKKKKEE 
;ROUTINE: WRSTRG 

;PURPOSE: OUTPUT STRING TO VIDEO DISPLAY (STANDARD OUTPUT) 
;ENTRY: DX = BASE ADDRESS OF STRING 

;EXIT: NONE 

;REGISTERS USED: AX,DX,F 

PRR EEK KEE KEKE EEEEKEEKEKEKREKREKREKREEEKKEKKEKE 


WRSTRG: 
MOV AH,PSTRG ;FUNCTION IS PRINT (DISPLAY) STRING 
INT 21H zOUTPUT STRING TERMINATED WITH $ 
RET 
; SAMPLE EXECUTION: 
’ 
; EQUATES 
PROMPT EQU "2! ;OPERATOR PROMPT = QUESTION MARK 
SC8A: 
a 
;READ LINE FROM STANDARD INPUT DEVICE (KEYBOARD) 
a 
MOV AL,PROMPT WRITE PROMPT (7?) 
CALL WRCHAR 
MOV BX,OFFSET INBUFF ;GET INPUT BUFFER ADDRESS 
MOV AL,LENBUF 7;GET LENGTH OF BUFFER 
CALL RDLINE 7READ LINE 
TEST AL,AL >;CHECK LINE LENGTH 
JZ SC8A ;READ NEXT LINE IF LENGTH IS O 


, 
7ECHO LINE TO CONSOLE 


a 
MOV CL,AL 7SAVE NUMBER OF CHARACTERS IN BUFFER 
MOV DI,OFFSET INBUFF ;POINT TO START OF BUFFER 
WRBUFF: 
MOV AL,CDI] 7WRITE NEXT CHARACTER 


CALL WRCHAR 
INC DI 7 INCREMENT BUFFER POINTER 


8A 


DEC 
JNZ 
CALL 
JMP 


;DATA SECTION 
LENBUF EQU 
INBUFF DW 


END 


CL 
WRBUFF 
WRNEWL 
SC8A 


16 
LENBUF DUP(?) 


Read a line from a terminal (RDLINE) 


;DECREMENT CHARACTER COUNT 
7;CONTINUE UNTIL ALL CHARACTERS SENT 
7 THEN END WITH CR,LF 

7READ NEXT LINE 


7LENGTH OF INPUT BUFFER 
7 INPUT BUFFER 
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8B Write a line to an output device 
(WRLINE) 





Writes characters until it empties a buffer with given length and base 
address. Assumes the system-dependent subroutine WRCHAR, which 
sends the character in register AL to an output device. 
WRLINE is an example of an output driver. The actual I/O sub- 
routines will, of course, be computer-dependent. A specific example in 
the listing is for an IBM PC running MS-DOS (see Table 8-2 for a list of 
DOS routines). 


Procedure The program exits immediately if the buffer is empty. 
Otherwise, it sends characters to the output device one at a time until it 
empties the buffer. The program saves all temporary data in memory 
rather than in registers to avoid dependence on WRCHAR. 





Entry conditions 


Base address of buffer in register BX 
Number of characters in the buffer in register AL 


Exit conditions 


None 


Example 


Data: | Number of characters = 5 
Buffer contains ‘ENTER’ 
Result: ‘ENTER’ sent to the output device. 


Registers used AL, CX, F, SI 


Execution time 26 cycles overhead plus 48 cycles per byte. This does 
not, of course, include the execution time of WRCHAR. 


‘ese 


we Ws Ts We Ws We We We Ne Ne We Vs Ns Ns No 


DIRIO 


WRLINE: 


WRLLP: 


EXITWL: 
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Program size 18 bytes 


Data memory required None 


Special case An empty buffer results in an immediate exit with 
nothing sent to the output device. 


Title 
Name: 


Purpose: 


Entry: 


Exit: 


Registers Used: 


Time: 


Size: 


7 EQUATES 
EQU 6 


Write a Line to an Output Device 
WRLINE 


Write characters to MS-DOS standard 
output device 


Register BX = 
Register AL = 


Base address of buffer 
Number of characters in buffer 


None 
AL,CX,F,SI 


Indeterminate, depends on the speed of the 
WRCHAR routine. 


Program 18 bytes 


7MS-DOS DIRECT I/0 FUNCTION 


7 
7EXIT IMMEDIATELY IF BUFFER IS EMPTY 


a 
TEST AL,AL 


JZ EXITWL 


7TEST NUMBER OF CHARACTERS IN BUFFER 
7BRANCH CEXIT) IF BUFFER EMPTY 
7 BX = BASE ADDRESS OF BUFFER 


7 
;LOOP SENDING CHARACTERS TO OUTPUT DEVICE 


7 

MOV CL,AL 

SUB CH,CH 

MOV S1,BX 

CLD 

LODSB 

CALL WRCHAR 
LOOP WRLLP 

RET 


7SAVE CHARACTER COUNT 

7EXTEND CHARACTER COUNT TO 16 BITS 
7 SAVE BASE ADDRESS OF BUFFER 
7SELECT AUTOINCREMENTING 


7GET NEXT CHARACTER 
7SEND CHARACTER 
7CONTINUE UNTIL ALL CHARACTERS SENT 


7 EXIT 
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IBM PC RUNNING MS-DOS 


a 


av 

7 

7 THE FOLLOWING SUBROUTINES ARE TYPICAL EXAMPLES FOR AN 

, 

J RRR KEKE KERRIER III EERE KIER REAR REE EERE KKK 


J RRR IKEEKKKEEK IEEE EEE KEEREKERRREREEEERKE 
7ROUTINE: WRCHAR 

7PURPOSE: WRITE CHARACTER TO OUTPUT DEVICE 
ENTRY: REGISTER AL = CHARACTER 

7EXIT: NONE 


,REGISTERS USED: AX,DL,F 
ZRII III KKK EERIE ERE RK EREREKREEREEKE 


WRCHAR: 
, 
; SEND CHARACTER TO STANDARD OUTPUT DEVICE FROM REGISTER AL 
, 
MOV AH,DIRIO 7DIRECT I/0 FUNCTION 
MOV DL,AL 7CHARACTER IN REGISTER DL 
INT 21H 7SEND CHARACTER TO OUTPUT DEVICE 
RET 


SAMPLE EXECUTION: 
CBUF EQU OAH 7MS-DOS READ KEYBOARD BUFFER FUNCTION 


7MS-DOS READ KEYBOARD BUFFER FUNCTION USES 

7 THE FOLLOWING BUFFER FORMAT: 

7 BYTE O: BUFFER LENGTH (MAXIMUM NUMBER OF CHARACTERS) 
7 BYTE 1: NUMBER OF CHARACTERS READ (LINE LENGTH) 

7 BYTES 2 ON: ACTUAL CHARACTERS 


, CHARACTER EQUATES 


CR EQU ODH ;CARRIAGE RETURN FOR KEYBOARD 

LF EQU OAH 7;LINE FEED FOR VIDEO DISPLAY 
PROMPT EQU 19! ;OPERATOR PROMPT = QUESTION MARK 
SC8B: 


7 
7READ LINE FROM KEYBOARD 


7 

MOV AL,PROMPT 7OUTPUT PROMPT (?) 

CALL WRCHAR 

MOV DX,OFFSET INBUFF ;POINT TO INPUT BUFFER 
MOV AH, RCBUF 7MS-DOS READ LINE FUNCTION 
INT 21H 7READ LINE FROM KEYBOARD 
MOV AL,LF ,OUTPUT LINE FEED 


CALL WRCHAR 


, 
7WRITE LINE ON VIDEO DISPLAY 
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MOV BX,OFFSET INBUFF+1 ;POINT TO NUMBER OF CHARACTERS IN 
7 BUFFER 

MOV AL,CBX] 7GET LINE LENGTH 

INC BX 7POINT TO FIRST DATA BYTE 

CALL WRLINE 7WRITE LINE 

MOV BX,OFFSET CRLF ;OUTPUT CARRIAGE RETURN, LINE FEED 

MOV AL,2 7 LENGTH OF CRLF STRING 

CALL WRLINE 7WRITE CRLF STRING 

JMP SC8B 7REPEAT CLEAR, READ, WRITE SEQUENCE 


7DATA SECTION 


CRLF DB CR,LF 7CARRIAGE RETURN, LINE FEED 
LENBUF EQU 10H 7LENGTH OF INPUT BUFFER 
INBUFF DB LENBUF 7LENGTH OF INPUT BUFFER 

DB LENBUF DUP(?) 7DATA BUFFER 


END 
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8C CRC16 checking and generation 
(ICRC16, CRC16, GCRC16) 


Generates a 16-bit cyclic redundancy check (CRC) based on the IBM 
Binary Synchronous Communications protocol (BSC or Bisync). Uses 
the polynomial X'° + X15 + X? + 1. Entry point ICRC16 initializes the 
CRC to 0 and the polynomial to its bit pattern. Entry point CRC16 
combines the previous CRC with the one generated from the current 
data byte. Entry point GCRC16 returns the CRC. 


Procedure Subroutine ICRC16 initializes the CRC to 0 and the poly- 
nomial to a 1 in each bit position corresponding to a power of X present 
in the formula. Subroutine CRC16 updates the CRC for a data byte. It 
shifts both the data and the CRC left eight times; after each shift, it 
exclusive-ORs the CRC with the polynomial if the exclusive-OR of the 
data bit and the CRC’s most significant bit is 1. Subroutine CRC16 
leaves the CRC in memory locations CRC (less significant byte) and 
CRC + 1 (more significant byte). Subroutine GCRC16 loads the CRC 
into register AX. 


Entry conditions 
1. ForICRC16: none 


2. For CRC16: data byte in register AL, previous CRC in memory 
locations CRC (less significant byte) and CRC+1 (more significant 
byte), CRC polynomial in memory locations PLY (less significant byte) 
and PLY + 1 (more significant byte). 


3. For GCRC16: CRC in memory locations CRC (less significant byte) 
and CRC + 1 (more significant byte). 


Exit conditions 


1. ForICRC16: 

0 (initial CRC value) in memory locations CRC (less significant byte) 
and CRC + 1 (more significant byte) 

CRC polynomial in memory locations PLY (less significant byte) and 
PLY + 1 (more significant byte) 


2. For CRC16: CRC with current data byte included in memory loca- 
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tions CRC (less significant byte) and CRC + 1 (more significant byte) 
3. For GCRC16: CRC in register AX 





Examples 


1. Generating a CRC. 
Call ICRC16 to initialize the polynomial and start the CRC at 0. 
Call CRC16 repeatedly to update the CRC for each data byte. 
Call GCRC16 to obtain the final CRC. 


2. Checking a CRC. 

Call ICRC16 to initialize the polynomial and start the CRC at 0. 

Call CRC16 repeatedly to update the CRC for each data byte (includ- 

ing the stored CRC) for checking. 

Call GCRC16 to obtain the final CRC; it will be 0 if there were no 

errors. 

Note that only ICRC16 depends on the particular CRC polynomial 
used. To change the polynomial, simply change the data ICRC16 loads 
into memory locations PLY (less significant byte) and PLY + 1 (more 
significant byte). 





Reference 


J. E. McNamara, Technical Aspects of Data Communications, 3rd ed., 
Digital Press, Digital Equipment Corp., Billerica, MA, 1989. This 
book contains explanations of CRC and communications protocols. 


Registers used 

1. By ICRC16: None 
2. By CRC16: None 
3. By GCRC16: AX 


Execution time 
1. For ICRC16: 40 cycles 
2. For CRC16: 136 cycles overhead plus an average of 42 cycles per 
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data byte, assuming that the previous CRC and the polynomial must be 
exclusively-ORed in half of the iterations. 


3. For GCRC16: 22 cycles 


Program size 

1. For ICRC16: 13 bytes 
2. For CRC16: 48 bytes 
3. For GCRC16: 4 bytes 


Data memory required 4 bytes anywhere in RAM for the CRC (2 
bytes starting at address CRC) and the polynomial (2 bytes starting at 
address PLY). 





Title Generate CRC-16 
Name: ICRC16, CRC16, GCRC16 
Purpose: Generate a 16 bit CRC based on IBM's Binary 


Synchronous Communications protocol. The CRC is 
based on the following polynomial: 
(“ indicates "to the power") 
X"16 + X°15 + X24 1 


To generate a CRC: 
1) Call ICRC16 to initialize the CRC 
polynomial and clear the CRC. 
2) Call CRC16 for each data byte. 
3) Call GCRC16 to obtain the CRC. 
It should then be appended to the data, 
high byte first. 


To check a CRC: 
1) Catl ICRC16 to initialize the CRC. 
2) Call CRC16 for each data byte and 
the 2 bytes of CRC previously generated. 
3) Call GCRC16 to obtain the CRC. It will 
be zero if no errors occurred. 


Entry: ICRC16 - None 


CRC16 - Register AL = Data byte 
GCRC16 - None 


Exit: ICRC16 - CRC, PLY initialized 


CRC16 - CRC updated 
GCRC16 - Register AX = CRC 


8C CAC16 checking and generation (ICRC 16, CRC 16, GCRC 76) 303 


Registers Used: ICRC16 - None 


; CRC16 - None 
; GCRC16 - AX 
; Time: ICRC16 - 40 cycles 
; CRC16 - 136 cycles overhead plus an average of 
; 42 cycles per data byte. The loop timing 
; assumes that half the iterations require 
; EXCLUSIVE-ORing the CRC and the polynomial. 
; GCRC16 - 22 cycles 
; Size: Program 65 bytes 
; Data 4 bytes 
CRC16: 
;SAVE ALL REGISTERS 
PUSHF 7 SAVE ALL REGISTERS 
PUSH AX 
PUSH BX 
PUSH CX 
PUSH DX 
7LOOP THROUGH EACH DATA BIT, GENERATING THE CRC 
MOV CX,8 78 BITS PER BYTE 
MOV DX,CPLYJ 7;GET POLYNOMIAL 
MOV BX,CCRC] 7;GET CURRENT CRC VALUE 
MOV AH,AL ;SAVE DATA 
CRCLP: 
AND AL,10000000B 7GET BIT 7 OF DATA 
XOR BH,AL 7EXCLUSIVE-OR BIT 7 WITH BIT 15 OF CRC 
SHL BX, 1 ;SHIFT 16-BIT CRC LEFT 
JNC CRCLP1 ;BRANCH IF BIT 7 OF EXCLUSIVE-OR IS 0 
, 
7;BIT 7 IS 1, SO EXCLUSIVE-OR CRC WITH POLYNOMIAL 
, 
XOR BX ,DX 7EXCLUSIVE-OR CRC WITH POLYNOMIAL 
7SHIFT DATA LEFT AND COUNT BITS 
CRCLP1: 
SHL AH, 1 7;SHIFT DATA LEFT 
MOV AL,AH ;SAVE SHIFTED DATA 
LOOP CRCLP 7 JUMP IF NOT THROUGH 8 BITS 


MOV CCRC] ,BX 7 SAVE UPDATED CRC 


7RESTORE REGISTERS AND EXIT 


POP DX 7RESTORE ALL REGISTERS 
POP CX 
POP BX 


POP AX 
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POPF 
RET 


RRR ERE HERE REKEKEKKEKEREREREEEEKKK KKK 
zROUTINE: ICRC16 

7PURPOSE: INITIALIZE CRC AND PLY 

7ENTRY: NONE 

7EXIT: CRC AND POLYNOMIAL INITIALIZED 


7REGISTERS USED: NONE 
FRI IIIT IIIT IIT TITRE KERR 


ICRC16: 

MOV WORD PTRCCRC],0 ; INITIALIZE CRC TO 0 

MOV WORD PTREPLY],8005H ;PLY = 8005H 
38005 HEX REPRESENTS X 16+X 154+X°2+1 
3 THERE IS A 11S IN EACH BIT 
3 POSITION FOR WHICH A POWER APPEARS 
; IN THE FORMULA (BITS 0, 2, AND 15) 

RET 


ZK KIKI IERIE ERIK ERE RIEKREEREREREREREKKKA 
,ROUTINE: GCRC16 

,PURPOSE: GET CRC VALUE 

7ENTRY: NONE 

,EXIT: REGISTER AX = CRC VALUE 


,REGISTERS USED: AX 
ZEKE ERIK II KER I EK EE ERE EERE 


GCRC16: 
MOV AX, CCRC] z;AX = CRC 
RET 
;DATA 
CRC DW ? 7CRC VALUE 
PLY DW ? 7POLYNOMIAL VALUE 


SAMPLE EXECUTION: 


a 
7GENERATE CRC FOR THE NUMBER 1 AND CHECK IT 
’ 
SC8C: 
CALL ICRC16 7INITIALIZE CRC, POLYNOMIAL 
MOV AL, 1 7;GENERATE CRC FOR 1 
CALL CRC16 
CALL GCRC16 


MOV DX ,AX 7SAVE CRC IN REGISTER DX 

CALL ICRC16 7 INITIALIZE AGAIN 

MOV AL,1 

CALL CRC16 7CHECK CRC BY GENERATING IT FOR DATA 
MOV AL,DH 7AND STORED CRC ALSO - HIGH BYTE FIRST 


CALL CRC16 
MOV AL,DL 7 THEN LOW BYTE 


GENLP: 


CHKLP: 
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CALL CRC16 
CALL GCRC16 7CRC SHOULD BE ZERO IN AX 


7 
7GENERATE CRC FOR THE SEQUENCE 0,1,2,...,255 AND CHECK IT 


CALL ICRC16 7 INITIALIZE CRC, POLYNOMIAL 

SUB AL,AL 7START DATA BYTES AT 0 

CALL CRC16 7UPDATE CRC 

INC AL 7ADD 1 TO PRODUCE NEXT DATA BYTE 
JNZ GENLP 7BRANCH IF NOT DONE 

CALL GCRC16 7GET RESULTING CRC 


MOV DX ,AX 7AND SAVE IT IN DX 


a 
7CHECK CRC BY GENERATING IT AGAIN 


CALL ICRC16 7 INITIALIZE CRC, POLYNOMIAL 

SUB AL,AL 7 START DATA BYTES AT 0 

CALL CRC16 7UPDATE CRC 

INC AL 7ADD 1 TO PRODUCE NEXT DATA BYTE 


JNZ CHKLP 7BRANCH IF NOT DONE 


7 INCLUDE STORED CRC IN CHECK 


a 
MOV AL,DH 7 INCLUDE HIGH BYTE OF CRC 
CALL CRC16 
MOV AL,DL 7 INCLUDE LOW BYTE OF CRC 
CALL CRC16 
CALL GCRC16 7GET RESULTING CRC 
7IT SHOULD BE Q 
JMP SC8C ,REPEAT TEST 


END 
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I/O device table handler 


(IOHDLR) 


Performs input and output in a device-independent manner using I/O 
control blocks and an I/O device table. The I/O device table is a linked 
list; each entry contains a link to the next entry, the device number, and 
starting addresses for routines that initialize the device, determine its 
input status, read data from it, determine its output status, and write 
data to it. An I/O control block is an array containing device number, 
operation number, device status, and the base address and length of the 
device’s buffer. The user must pass TOHDLR the base address of an I/O 
control block and the data if only 1 byte is to be written. IOHDLR 
returns the status byte and the data (if only 1 byte is read). 

This subroutine provides a device-independent way of handling I/O. 
The I/O device table must be constructed using subroutines INITDL, 
which creates an empty device list, and INSDL, which inserts a device at 
the head of the list. 

An applications program performs I/O by obtaining or constructing 
an I/O control block and then calling IOHDLR. IOHDLR uses the I/O 
device table to transfer control to the I/O driver. 


Procedure The program first initializes the status byte to 0, indicating 
no errors. It then searches the device table, trying to match the device 
number in the I/O control block. If it does not find a match, it exits with 
an error number in the status byte. If it finds a match, it checks for a 
valid operation and transfers control to the appropriate routine from the 
device table entry. That routine must then transfer control back to the 
original caller. If the operation is invalid (the operation number is too 
large or the starting address for the routine is 0), the program returns 
with an error number in the status byte. 

Subroutine INITDL initializes the device list, setting the initial link to 
0. 

Subroutine INSDL inserts an entry at the head of the device list and 
sets its link field to the previous head of the list. 


Entry conditions 


1. IOHDLR: 
Base address of I/O control block in register BX 
Data byte (if the operation is to write one byte) in register AL 


2. INITL: None 
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3. INSDL: Base address of a device table entry in register BX 


Exit conditions 


1. IOHDLR: 

I/O control block status byte in register AL if an error is found; other- 
wise, the routine exits to the appropriate I/O driver. 

Data byte in register AL if the operation is to read 1 byte. 


2. INITL: Device list header (addresses DVLST and DVLST+1) 
cleared to indicate an empty list. 


3. INSDL: Device table entry added to head of list. 


Example 


The example in the listing uses the following structure: 


Input/output operations 


Operation Operation 


number 

0 Initialize device 

1 Determine input status 

2 Read 1 byte from input device 

3 Read N bytes (usually 1 line) from input device 
4 Determine output status 

5 Write 1 byte to output device 

6 Write N bytes (usually 1 line) to output device 


Input/output control block 


Index Contents 

0 Device number 

1 Operation number 

2 Status 

3 Unused byte (to align subsequent word-length parameters) 
4 Low byte of base address of buffer 

5 High byte of base address of buffer 

6 Low byte of buffer length 

7 High byte of buffer length 
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Device table entry 

Index Contents 

0 Low byte of link field (base address of next 
element) 

1 High byte of link field (base address of next 
element) 

2 Device number 

3 Unused byte (to align subsequent 16-bit 
parameters) 

4 Low byte of starting address of device 
initialization routine 

5 High byte of starting address of device 
initialization routine 

6 Low byte of starting address of input status 
determination routine 

7 High byte of starting address of input status 
determination routine 

8 Low byte of starting address of input driver 
(read 1 byte only) 

9 High byte of starting address of input driver 
(read 1 byte only) 

10 Low byte of starting address of input driver 
(read N bytes or 1 line) 

11 High byte of starting address of input driver 
(read N bytes or 1 line) 

12 Low byte of starting address of output status 
determination routine 

13 High byte of starting address of output status 
determination routine 

14 Low byte of starting address of output driver 
(write 1 byte only) 

15 High byte of starting address of output driver 
(write 1 byte only) 

16 Low byte of starting address of output driver 
(write N bytes or 1 line) 

17 High byte of starting address of output driver 
(write N bytes or 1 line) 


If an operation is irrelevant or undefined (such as output status determi- 
nation for a keyboard or input driver for a printer), the corresponding 


starting address in the device table is 0. 
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Status values 

Value Description 

0 No errors 

1 Bad device number (no such device) 

2 Bad operation number (no such operation or invalid 
operation) 

3 Input data available or output device ready 

254 Buffer too small for use by MS-DOS function A (Read 


Console Buffer or Buffered Keyboard Input). This function 
requires 2 bytes for the buffer length and character count. 


Registers used 

1. IOHDLR: AX, BX, DX,F, SI 
2. INITDL: None 

3. INSDL: DI 


Execution time 


1. ITOHDLR: 205 cycles overhead plus 59 cycles for each unsuccessful 
match of a device number 


2. INITDL: 24 cycles 
3. INSDL: 51 cycles 


Program size 

1. IOHDLR: 75 bytes 
2. INITL:7 bytes 

3. INSDL: 11 bytes 


Data memory required 5 bytes anywhere in RAM for the base address 
of the I/O control block (2 bytes starting at address IOCBA), the device 
list header (2 bytes starting at address DVLST), and temporary storage 
for data to be written without a buffer (1 byte at address BDATA). 
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; Title I/0 Device Table Handler 
; Name: IOHDLR 


‘e 


Purpose: Perform I/0 in a device independent manner. 
This can be done by accessing all devices 
in the same way using an I/0 Control Block 
(I0CB) and a device table. The routines here 
allow the following operations: 


Operation number’ Description 
Initialize Device 
Determine input status 
Read 1 byte 

Read N bytes 

Determine output status 
Write 1 byte 

Write N bytes 


Ou PWN = © 


Adding operations such as Open, Close, Delete, 
Rename, and Append would allow for more complex 
devices such as floppy or hard disks. 


A I0CB is an array consisting of elements 
with the following form: 


I0CB + O = Device Number 

I0CB + 1 = Operation Number 

I0CB + 2 = Status 

I0CB + 3 = Unused byte (for alignment) 
I0CB + 4 = Low byte of buffer address 
IOCB + 5 = High byte of buffer address 
I0CB + 6 = Low byte of buffer Length 
I0CB + 7 = High byte of buffer length 


The device table is implemented as a linked 
List. Two routines maintain the list: INITDL, 
which initializes it to empty, and INSDL, 
which inserts a device at its head. 

A device table entry has the following form: 


wes We “We Ye Ne We We Ns Ns Ne Ns Ws Ns Vs We Ne Noe Ne Ns We We Ws We Ns We Woe Ws Ws Ns: We Vs We Ns Ns Ns Ne We We Ns Ns Ns Ne Ns Ns We Ns Ns No Ne Vs Ne 


DVTBL + O = Low byte of Link field 

DVTBL + 1 = High byte of link field 

DVTBL + 2 = Device Number 

DVTBL + 3 = Unused byte (for alignment) 

DVTBL + 4 = Low byte of device initialization 
DVTBL + 5 = High byte of device initialization 
DVTBL + 6 = Low byte of input status routine 
DVTBL + 7 = High byte of input status routine 
DVTBL + 8 = Low byte of input 1 byte routine 
DVTBL + 9 = High byte of input 1 byte routine 
DVTBL + 10= Low byte of input N bytes routine 
DVTBL + 11= High byte of input N bytes routine 
DVTBL + 12= Low byte of output status routine 
DVTBL + 13= High byte of output status routine 


we Te We Me We Be Me Me Ne Te Me We Ne We Ne Ne Ne Ne We Ws Me Ne Ne Ne Vs Ne Ws Ne We No Ns Ne Ne Ne Ne 
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Entry: 


Exit: 


Registers Used: 


Time: 


Size: 


DVTBL + 14= Low byte of output 1 byte routine 
DVTBL + 15= High byte of output 1 byte routine 
DVTBL + 16= Low byte of output N bytes routine 
DVTBL + 17= High byte of output N bytes routine 


Register BX = Base address of IOCB 
Register AL = For write 1 byte, contains the 
data (no buffer is used). 


Register AL = Copy of the IOCB status byte 
except contains the data for 
read 1 byte (no buffer is used). 

Status byte of IOCB is 0 if the operation was 

completed successfully; otherwise, it contains 

the error number. 


Status value Description 
0 No errors 
1 Bad device number 
2 Bad operation number 
3 Input data available or output 


device ready 

254 Buffer too small for MS-DOS 
function A (Read Console 
Buffer or Buffered Keyboard 
Input, part of INT 21H) 


AX,BX,DX,F,SI 


205 cycles overhead plus 59 cycles for each 
non-matching device in the table 


Program 75 bytes 
Data 5 bytes 


710CB AND DEVICE TABLE EQUATES 


IOCBDN EQU 
IOCBOP EQU 
IOCBST EQU 
IOCBBA EQU 
IOCBBL EQU 
DTLNK EQU 
DTDN EQU 
DTSR EQU 
7OPERATION NUMBE 
NUMOP EQU 
INIT EQU 
ISTAT EQU 
RIBYTE EQU 
RNBYTE EQU 
OSTAT EQU 
WIBYTE EQU 
WNBYTE EQU 


7 STATUS VALUES 


NOERR 


EQU 


QRauPWN BON DWENOIA SN |] © 


© 


710CB DEVICE NUMBER 

710CB OPERATION NUMBER 

710CB STATUS 

710CB BUFFER BASE ADDRESS 

710CB BUFFER LENGTH 

7,DEVICE TABLE LINK FIELD 

7DEVICE TABLE DEVICE NUMBER 

7BEGINNING OF DEVICE TABLE SUBROUTINES 


7NUMBER OF OPERATIONS 
7 INITIALIZATION 

7 INPUT STATUS 

7READ 1 BYTE 

7READ N BYTES 

7OUTPUT STATUS 

;WRITE 1 BYTE 

7WRITE N BYTES 


7NO ERRORS 
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DEVERR 
OPERR 

DEVRDY 
BUFERR 


IOHDLR: 


SRCHLP: 


FOUND: 
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EQU 1 7BAD DEVICE NUMBER 

EQU 2 7BAD OPERATION NUMBER 

EQU 3 7 INPUT DATA AVAILABLE OR OUTPUT DEVICE READY 

EQU 254 7BUFFER TOO SMALL FOR MS-DOS READ CONSOLE BUFFER 


7 
7SAVE IOCB ADDRESS AND DATA CIF ANY) 


MOV CIOCBA] ,BX 7 SAVE IOCB ADDRESS 
MOV CBDATA],AL 7 SAVE DATA BYTE FOR WRITE 1 BYTE 


7 INITIALIZE STATUS BYTE TO INDICATE NO ERRORS 


MOV BYTE PTR CBX+IOCBST],NOERR ;SAVE NO ERRORS STATUS 
; IN IOCB 


7CHECK FOR VALID OPERATION NUMBER (WITHIN LIMIT) 


MOV DL,CBX+IOCBOP] ;GET OPERATION NUMBER FROM IOCB 
CMP DL,NUMOP 71S OPERATION NUMBER WITHIN LIMIT? 


JAE BADOP 7JUMP IF OPERATION NUMBER TOO LARGE 
7 SEARCH DEVICE LIST FOR THIS DEVICE 


MOV AL,CBX+IOCBDN] ;GET IOCB DEVICE NUMBER 
MOV BX,CDVLSTI 7GET LINK TO HEAD OF DEVICE LIST 


7BX = POINTER TO DEVICE LIST 
7 OL OPERATION NUMBER 
7AL REQUESTED DEVICE NUMBER 


7CHECK IF AT END OF DEVICE LIST (LINK FIELD = 0000) 


7 
TEST BX ,BX 7TEST LINK FIELD 
JZ BADDN 7BRANCH IF NO MORE DEVICE ENTRIES 


7CHECK IF CURRENT ENTRY MATCHES DEVICE IN I0CB 


a 
CMP AL,CBX+DTONJ 7COMPARE DEVICE NUMBER, REQUESTED DEVICE 
JE FOUND 7BRANCH IF DEVICE FOUND 


a 

7DEVICE NOT FOUND, SO ADVANCE TO NEXT DEVICE 

7 TABLE ENTRY THROUGH LINK FIELD 

7 THAT IS, NEXT ENTRY = LINK FROM CURRENT ENTRY 


a 
MOV BX, CBX] 7NEXT DEVICE = LINK FROM CURRENT DEVICE 
JMP SRCHLP 7CHECK NEXT ENTRY IN DEVICE TABLE 


, 
7FOUND DEVICE, SO VECTOR TO APPROPRIATE ROUTINE IF ANY 
7DL = OPERATION NUMBER IN IOCB 


a 


,GET ROUTINE ADDRESS (ZERO INDICATES INVALID OPERATION) 
SUB DH,DH 7EXTEND OPERATION NUMBER TO 16 BITS 
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SHL DX,1 7MULTIPLY OPERATION NUMBER TIMES 2 TO 
7 INDEX INTO TABLE OF 16-BIT ADDRESSES 
MOV S1,DX 
MOV SI,DTSREBX+SI] ;GET SUBROUTINE ADDRESS FROM DEVICE 
7 TABLE 
TEST SI,SI 7TEST SUBROUTINE ADDRESS 
JZ BADOP 7JUMP IF OPERATION INVALID CADDRESS = 0) 
MOV AL,CBDATA]I 7AL = DATA BYTE FOR WRITE 1 BYTE 
MOV BX,CIOCBA] 7GET BASE ADDRESS OF I0CB 
JMP Csi] 7GOTO SUBROUTINE 
BADDN: 
MOV AL,DEVERR 7ERROR CODE -- NO SUCH DEVICE 
JMP EREXIT 
BADOP: 
MOV AL,OPERR 7ERROR CODE -- NO SUCH OPERATION 
EREXIT: 
MOV BX, CIOCBA] 7POINT TO IOCB 
MOV CBX+IOCBST1,AL ;SET STATUS BYTE IN IOCB 
RET 


ZI KIKI EI K KEIR ITE E RIK ERIE 

7ROUTINE: INITDL 

7PURPOSE: INITIALIZE DEVICE LIST TO EMPTY 

7ENTRY: NONE 

7EXIT: DEVICE LIST SET TO NO ITEMS (ZERO LINK IN HEADER) 
7REGISTERS USED: NONE 
FHKE KIER KIKI KEKE KERR EREKK KE 


INITDL: 
INITIALIZE DEVICE LIST HEADER TO O TO INDICATE NO DEVICES 
MOV WORD PTR CDVLST1],0 ;HEADER = O CEMPTY LIST) 
RET 


FHI KI KIKI KIKI KIKI KISHI R EKER REREREREK 
7ROUTINE: INSDL 

7PURPOSE: INSERT DEVICE AT HEAD OF DEVICE LIST 
7ENTRY: REGISTER BX = ADDRESS OF DEVICE TABLE ENTRY 
7EXIT: DEVICE INSERTED INTO DEVICE LIST 


7REGISTERS USED: DI 
FRI KHKI KKK KEIR EI KIKI IKKE EERE RIKER K 


INSDL: 
MOV DI,CDVLST]I 7GET CURRENT HEAD OF DEVICE LIST 
MOV CBX1,DI 7LINK NEW ENTRY TO CURRENT HEAD 
MOV COVLSTI,BX 7LINK HEADER TO NEW ENTRY - IT IS NOW 


7 AT HEAD OF LIST 
RET 


a 

7DATA SECTION 

IOCBA DW ? 7BASE ADDRESS OF IOCB 

DVLST DW ? ,DEVICE LIST HEADER 

BDATA DB ? 7DATA BYTE FOR WRITE 1 BYTE 
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SAMPLE EXECUTION: 


This test routine sets up the MS-DOS console (CON) as 
device 1 and the MS-DOS printer (PRN) as device 2. The 
routine then reads a Line from the console and echoes 
it to the console and the printer. 


7CHARACTER EQUATES 


CR 
LF 


7MS-DOS 
CINP 
COUTP 
POUTP 
RCBUF 
CSTAT 


SC8D: 


TSTLP: 


EQU ODH 7CARRIAGE RETURN CHARACTER 

EQU OAH 7LINE FEED CHARACTER 

EQUATES 

EQU 1 7MS-DOS CONSOLE INPUT FUNCTION 

EQU 2 7MS-DOS CONSOLE OUTPUT FUNCTION 

EQU 5 7MS-DOS PRINTER OUTPUT FUNCTION 

EQU OAH 7MS-DOS READ CONSOLE BUFFER FUNCTION 
EQU OBH 7MS-DOS CONSOLE STATUS FUNCTION 


7INITIALIZE DEVICE LIST 


CALL INITDL 7CREATE EMPTY DEVICE LIST 

7SET UP CONSOLE AS DEVICE 1 AND INITIALIZE IT 

MOV BX,OFFSET CONDV ;POINT TO CONSOLE DEVICE ENTRY 
CALL INSDL 7ADD CONSOLE TO DEVICE LIST 

MOV BX,OFFSET IOCB ;INITIALIZE CONSOLE 

MOV BYTE PTR CBX+IOCBOPI,INIT 7 INITIALIZE OPERATION 
MOV BYTE PTR CBX+IOCBDNI,1 7DEVICE NUMBER = 1 


CALL IOHDLR 


7SET UP PRINTER AS DEVICE 2 AND INITIALIZE IT 


MOV BX,OFFSET PRTIDV ;POINT TO PRINTER DEVICE ENTRY 
CALL INSDL 7ADD PRINTER TO DEVICE LIST 

MOV BX,OFFSET I0CB ;INITIALIZE PRINTER 

MOV BYTE PTR CBX+IOCBOPI,INIT 7 INITIALIZE OPERATION 
MOV BYTE PTR CBX+IOCBDNI,2 ,DEVICE NUMBER = 2 


CALL IOHDLR 


7 
;LOOP READING LINES FROM CONSOLE, AND ECHOING THEM TO 
7 THE CONSOLE AND PRINTER UNTIL A BLANK LINE IS ENTERED 


. 
ao 


MOV WORD PTR CIOCB+IOCBBA],OFFSET BUFFER 

7;PLACE BUFFER ADDRESS IN IOCB 
MOV BYTE PTR CIOCB+IOCBDNI,1 ;DEVICE NUMBER = 1 (CONSOLE) 
MOV BYTE PTR CIOCB+IOCBOP],RNBYTE ;OPERATION IS READ N BYTES 
MOV WORD PTR CIOCB+IOCBBLIJ,LENBUF ;SET BUFFER LENGTH TO LENBUF 
CALL IOHDLR 7READ LINE FROM CONSOLE 


7 
7SEND LINE FEED TO CONSOLE 


MOV BYTE PTR CIOCB+IOCBOPI],W1IBYTE 7OPERATION IS WRITE 
7 1 BYTE 


ECHO: 


. 
wv 


. 
a 


7 
LENBUF 
BUFFER 


I0OCB 
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MOV AL,LF 7CHARACTER IS LINE FEED 
MOV BX,OFFSET IOCB ;GET BASE ADDRESS OF IOCB 


CALL IOHDLR 7WRITE 1 BYTE CLINE FEED) 


a 
7ECHO LINE TO DEVICES 1 AND 2 


MOV AL,1 7ECHO LINE TO DEVICE 1 
CALL ECHO 
MOV AL,2 7ECHO LINE TO DEVICE 2 


CALL ECHO 


7;STOP IF LINE LENGTH IS 0 


MOV AX,CIOCB+IOCBBL] ;GET LINE LENGTH 

TEST AX ,AX 7TEST LINE LENGTH 

JNZ TSTLP 7JUMP IF LENGTH NOT ZERO 
JMP $C8D 7 AGAIN 


,OUTPUT LINE 

MOV CIOCB+IOCBONI,AL 7SET DEVICE NUMBER IN IOCB 
zNOTE THAT ECHO WILL SEND A LINE 
7 TO ANY DEVICE. THE DEVICE NUMBER 
, IS IN REGISTER AL 


MOV BYTE PTR CIOCB+IOCBOP],WNBYTE 7SET OPERATION 
7 TO WRITE N BYTES 

MOV BX,OFFSET IOCB ;GET BASE ADDRESS OF IOCB 

CALL IOHDLR ,WRITE N BYTES 

7OUTPUT CARRIAGE RETURN/LINE FEED 

MOV BYTE PTR CIOCB+IOCBOP],W1IBYTE 7SET OPERATION 
7 TO WRITE 1 BYTE 

MOV AL,CR 7CHARACTER IS CARRIAGE RETURN 

MOV BX,OFFSET IOCB ;GET BASE ADDRESS OF IOCB 

CALL IOHDLR ;WRITE 1 BYTE 

MOV AL,LF 7CHARACTER IS LINE FEED 

MOV BX,OFFSET I0CB ;GET BASE ADDRESS OF IOCB 

CALL IOHDLR ,WRITE 1 BYTE 

RET 


DATA SECTION 


EQU 127 71/0 BUFFER LENGTH 
DB LENBUF DUP(?) 71/0 BUFFER 
710CB FOR PERFORMING I0 
DB ? 7DEVICE NUMBER 
DB ? 7 OPERATION NUMBER 
DB ? 7 STATUS 
DB ? 7UNUSED BYTE 
DW ? 7BUFFER ADDRESS 
DW ? ,BUFFER LENGTH 


,DEVICE TABLE ENTRIES 
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CONDV DW 0 7LINK FIELD 
DB 1 ,DEVICE 1 
DB ? 7UNUSED BYTE 
DW CINIT CONSOLE INITIALIZE 
DW CISTAT 7CONSOLE INPUT STATUS 
DW CIN 7CONSOLE INPUT 1 BYTE 
DW CINN 7CONSOLE INPUT N BYTES 
DW COSTAT 7CONSOLE OUTPUT STATUS 
DW COUT 7CONSOLE OUTPUT 1 BYTE 
DW COUTN 7CONSOLE OUTPUT N BYTES 
PRTDV DW 0 7LINK FIELD 
DB 2 ;DEVICE 2 
DB ? 7UNUSED BYTE 
DW PINIT ,PRINTER INITIALIZE 
DW 0 7NO PRINTER INPUT STATUS 
DW 0 7NO PRINTER INPUT 1 BYTE 
DW 0 7NO PRINTER INPUT N BYTES 
DW POSTAT 7PRINTER OUTPUT STATUS 
DW POUT ,PRINTER OUTPUT 1 BYTE 
DW POUTN 7PRINTER OUTPUT N BYTES 


FERRER EKREEKEEEEEREREEKKEKREKEKEEEEKKE 


;CONSOLE I/0 ROUTINES 
PIII KI IK IKI IK IKK IKI RIKKI EHR 


7CONSOLE INITIALIZE 


CINIT: 
SUB AL,AL 7STATUS = NO ERRORS 
RET 7NO INITIALIZATION NECESSARY 
7CONSOLE INPUT STATUS 
CISTAT: 
PUSH BX 7 SAVE IOCB ADDRESS 
MOV AH,CSTAT 7MS-DOS CONSOLE STATUS FUNCTION 
INT 21H 7GET CONSOLE STATUS 
POP BX 7RESTORE IOCB ADDRESS 
TEST AL,AL 7TEST CONSOLE STATUS 
JZ C1Ss1 7; JUMP IF NO CHARACTER READY (CAL = 0) 
MOV AL,DEVRDY 7 INDICATE CHARACTER READY 
C1IS1: MOV BYTE PTR CBX+I0CBSTJ,AL 7STORE STATUS IN IOCB 
RET 


7CONSOLE READ 1 BYTE 


CIN: 
MOV AL,CINP 7MS-DOS CONSOLE INPUT FUNCTION 
INT 21H 7READ 1 BYTE FROM CONSOLE 
RET 


7CONSOLE READ N BYTES 
CINN: 
7READ LINE USING MS-DOS READ CONSOLE BUFFER FUNCTION 
7MS-DOS READ CONSOLE BUFFER FUNCTION USES 
7 THE FOLLOWING BUFFER FORMAT: 
; BYTE O: BUFFER LENGTH (MAXIMUM NUMBER OF CHARACTERS) 
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, BYTE 1: NUMBER OF CHARACTERS READ (LINE LENGTH) 
7 BYTES 2 ON: ACTUAL CHARACTERS 


, 

MOV AL,CBX+IOCBBL] ;GET BUFFER LENGTH (8 BITS, HIGH BYTE 
7 ALWAYS O IN MS-DOS) 

SUB AL,3 ;BUFFER MUST BE AT LEAST 3 CHARACTERS 


; TO ALLOW FOR MAXIMUM LENGTH AND LINE 
; LENGTH USED BY MS-DOS READ CONSOLE 


7 BUFFER 

JAE CINN1 7 JUMP IF BUFFER LARGE ENOUGH 

MOV BYTE PTR CBX+IOCBST],BUFERR ;SET ERROR STATUS - BUFFER 
7 TOO SMALL - NO ROOM FOR DATA 

CINN1: INC AL 7ADD ONE BACK TO FIND AMOUNT OF ROOM 

7 IN BUFFER FOR DATA (2 BYTES OVERHEAD) 

MOV DI,CBX+IOCBBA] ;GET BUFFER ADDRESS FROM IOCB 

PUSH BX 7 SAVE IOCB ADDRESS 

PUSH DI 7 SAVE BUFFER ADDRESS 

MOV CDIJ,AL 7SET MAXIMUM LENGTH IN BUFFER 

MOV DX,DI 

MOV AH,RCBUF 7MS~-DOS READ CONSOLE BUFFER FUNCTION 


INT 21H 7READ BUFFER 


7 
7RETURN NUMBER OF CHARACTERS READ IN IOCB 


ao 

POP DI 7RESTORE BUFFER ADDRESS 

POP BX 7RESTORE IOCB ADDRESS 

MOV AL,COI+1] 7GET NUMBER OF CHARACTERS READ 

MOV CBX+IOCBBLI],AL ;SET BUFFER LENGTH IN IOCB 

MOV BYTE PTR CBX+IOCBBL+1],0 7UPPER BYTE OF LENGTH IS 0 


7MOVE DATA TO START AT BASE ADDRESS OF BUFFER 
;DROPPING OVERHEAD (BUFFER LENGTH, NUMBER OF CHARACTERS READ) 
7 RETURNED BY MS-DOS. LINE LENGTH IS NOW IN IOCB 


a 

TEST AL,AL 7TEST NUMBER OF CHARACTERS READ 

JZ CINEND 7EXIT IF NO CHARACTERS 

MOV CL,AL 7SAVE NUMBER OF CHARACTERS READ 

SUB CH,CH 7EXTEND NUMBER READ TO 16 BITS 

LEA SI,CD1+2] 7START SOURCE POINTER AT FIRST BYTE 


, OF DATA (2 BYTES BEYOND BASE 
7 ADDRESS OF BUFFER) 


CLD 7SELECT AUTOINCREMENTING 
REP MOVSB 7MOVE DATA DOWN IN MEMORY 
SUB AL,AL 7RETURN, NO ERRORS 
CINEND: RET 


7CONSOLE OUTPUT STATUS 

COSTAT: 
MOV AL,DEVRDY 7STATUS - ALWAYS READY TO OUTPUT 
RET 


;CONSOLE WRITE 1 BYTE 

COUT: 
MOV AH, COUTP 7MS-DOS CONSOLE OUTPUT OPERATION 
MOV DL,AL 7DL = CHARACTER 
INT 21H ;OUTPUT 1 BYTE 
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SUB AL,AL 7STATUS = NO ERRORS 
RET 


7CONSOLE WRITE N BYTES 


COUTN: 
MOV DI,OFFSET COUT ;DI=ADDRESS OF OUTPUT CHARACTER ROUTINE 
CALL OUTN ;CALL OUTPUT N CHARACTERS 
SUB AL,AL ;STATUS = NO ERRORS 
RET 


FRKKKRKKKKKEEKEEEKKEEEKREEEEREEREREEKEREEKE 


7PRINTER ROUTINES 
JHE IR IKK IK IKI HI KER ER EEREREERERERER ER 


7PRINTER INITIALIZE 

PINIT: 
SUB AL,AL 7NOTHING TO DO, RETURN NO ERRORS 
RET 


;PRINTER OUTPUT STATUS. 

POSTAT: . 
MOV AL, DEVRDY ;STATUS = ALWAYS READY 
RET 


7;PRINTER OUTPUT 1 BYTE 


POUT: 
MOV AH,POUTP zMS-DOS PRINTER OUTPUT FUNCTION 
MOV DL,AL 7;DL = CHARACTER 
INT 21H ;OUTPUT TO PRINTER 
SUB AL,AL ;STATUS = NO ERRORS 
RET 


7PRINTER OUTPUT N BYTES 


POUTN: 
MOV DI,OFFSET POUT ;DI = ADDRESS OF OUTPUT ROUTINE 
CALL OUTN ;OUTPUT N CHARACTERS 
SUB AL,AL ;STATUS = NO ERRORS 
RET 


SRK RE KRK ERR EIR IKKE IKE IIR II RIKER EERE RIERA RAE REE KER EERE REKREK 
7ROUTINE: OUTN 

7PURPOSE: OUTPUT N CHARACTERS 

7 ENTRY: REGISTER DI = CHARACTER OUTPUT SUBROUTINE ADDRESS 
; REGISTER BX = BASE ADDRESS OF AN IOCB 

7EXIT: DATA OUTPUT 

7REGISTERS USED: AL,CX,F,SI 

FR KKK REIKI REI IR IR IIIS HAIR IEEE REE ARERE ERE REE RE KRREREKREEKEEE 
OUTN: 


a 

;GET NUMBER OF BYTES, EXIT IF LENGTH IS 0 
; CX = NUMBER OF BYTES 

;GET OUTPUT BUFFER ADDRESS FROM IOCB 

7 SI = BUFFER ADDRESS 


a 
MOV CX,CBX+IOCBBL] ;GET BUFFER LENGTH FROM IOCB 


OUTLP: 


EXOUTN: 


DOSUB: 
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TEST 
JZ 
MOV 
CLD 


CX,CX 7 TEST BUFFER LENGTH 

EXOUTN 7EXIT IF BUFFER EMPTY 

SI1,CBX+IOCBBA] ;GET BUFFER ADDRESS FROM IOCB 
7 SELECT AUTOINCREMENTING 


7 
7SEND DATA FROM BUFFER TO OUTPUT DEVICE 


e 
aw 


LODSB 
PUSH 
PUSH 
CALL 
POP 
POP 
LOOP 
RET 


JMP 


END 


7GET DATA FROM BUFFER 


SI ;SAVE BUFFER POINTER, CHARACTER COUNT 
CX 

DOSUB OUTPUT CHARACTER 

CX 7RESTORE POINTER, COUNT 

SI 

OUTLP 7CONTINUE UNTIL ALL CHARACTERS SENT 
CDI] 7GOTO ROUTINE 
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8E_ Initialize 1/O ports 
(IPORTS) 





Initializes a set of I/O ports from an array of port device addresses and 
data values. Examples are given of initializing the common 8086/8088 
programmable I/O devices: 8250 Asynchronous Communications Ele- 
ment (ACE), 8251 Programmable Communication Interface (PCI), 
8253 Programmable Interval Timer (PIT), and 8255 Programmable 
Peripheral Interface (PPI). Standard IBM PCs, for instance, use 8250, 
8253, and 8255 devices. 

This subroutine provides a generalized way to initialize I/O sections. 
The initialization may involve data ports, data direction registers that 
determine whether bits are inputs or outputs, control or command 
registers that determine the operating modes of programmable devices, 
counters (in timers and baud rate generators), priority registers, inter- 
rupt mask and vector registers, and other external registers or storage 
locations. 

Tasks the user may perform with this routine include: 


1. Assign bidirectional I/O lines as inputs or outputs. 
2. Put initial values in output ports. 

3. Enable or disable interrupts from peripheral chips. 
4, 


Determine operating modes, such as whether inputs are latched, 
whether strobes are produced, how priorities are assigned, whether 
timers operate continuously or only on demand, and whether I/O is 
asynchronous, synchronous, or uses a block-oriented protocol. 


5. Load starting values into timers and counters. 
6. Select bit rates for communications. 


7. Clear or reset devices that are not tied to the overall system reset 
line. 


8. Initialize priority registers or assign initial priorities to interrupts or 
other operations. 


9. Initialize vectors used to service interrupts, DMA requests, and 
other inputs. 


Procedure For each port, the program obtains the number of bytes to 
be sent and the device address. It then sends the specified number of 
data values to the port. This approach does not depend on the number 
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or type of devices in the I/O section. The user may add or delete devices 
or change the initialization by changing the array rather than the 
program. 

Each array entry consists of the following: 


1. Number of bytes to be sent to the port 
2. Low byte of port address 

3. High byte of port address 

4. Data bytes in sequential order. 


The array ends with a terminator that has 0 in its first byte. 

Note that an entry may consist of an arbitrary number of bytes. The 
first byte contains the count, the second and third bytes the device 
address, and subsequent bytes the actual data values. The terminator 
need consist only of a single zero in the count. 


Entry conditions 


Base address of initialization array in register BX 


Exit conditions 


All data values sent to port addressess. 


Example 


Data: Number of ports to initialize = 3 
Array elements are: 

3 (number of bytes for port 1) 
Low byte of port 1’s address 
High byte of port 1’s address 
First value for port 1 
Second value for port 1 
Third value for port 1 
2 (number of bytes for port 2) 
Low byte of port 2’s address 
High byte of port 2’s address 
First value for port 2 
Second value for port 2 
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4 (number of bytes for port 3) 
Low byte of port 3’s address 
High byte of port 3’s address 
First value for port 3 

Second value for port 3 

Third value for port 3 

Fourth value for port 3 

0 (terminator) 


Ne Ne Ns Ne Ne Ne Ne Ns Ve Ns Ve Vs Ns Ve We We Ve 


Result: Three values sent to port 1’s device address 


Two values sent to port 2’s device address 
Four values sent to port 3’s device address 





Registers used AL, CX, DX, F, SI 


Execution time 20 cycles overhead plus 70 + 37 x N cycles for each 
port entry, where N is the number of bytes sent. If, for example, there 
are 10 ports plus an average of 3 bytes sent per port, the execution time 


1S 


20 + 10 x (70 + 37 x 3) = 20 + 1810 = 1830 cycles 


Program size 22 bytes plus the size of the table (at least 3 bytes per 


port plus 1 byte for a terminator). 


Data memory required None 





Title Initialize I/0 Ports 

Name: IPORTS 

Purpose: Initialize I/0 ports from an array of port 
addresses and values. 

Entry: Register BX = Base address of array 


The array consists of elements organized 

as follows: number of bytes to be sent to 

the port, port device address, data values 

for the port. This sequence is repeated for 

any number of ports. The array is terminated 

by an entry with 0 in the number of bytes. 
array+O = Number of bytes for this port (N) 
array+1 = Low byte of port device address 
array+2 = High byte of port device address 
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array+3 = First value for this port 


, 
; . 
7 a 
; array+3+(N-1) = Last value for this port 
7 e 
7 . 
7 a 
, 
; Exit: None 
, 
; Registers Used: AL,CX,DX,F,SI 
, 
; Time: 20 cycles overhead plus 70 + N X 37 cycles for 
; each port, where N is the number of bytes sent. 
, 
; Size: Program 22 bytes 
, 
IPORTS: 
, 
7GET NUMBER OF DATA BYTES TO SEND TO CURRENT PORT 
7EXIT IF NUMBER OF BYTES IS O, INDICATING TERMINATOR 
, 
MOV CL,CBX] 7GET NUMBER OF BYTES 
TEST CL,CL 7TEST FOR ZERO (TERMINATOR) 
JZ EXIPOR ;EXIT IF NUMBER OF BYTES = Q 
7GET PORT ADDRESS AND POINTER TO FIRST DATA BYTE 
SUB CH,CH ;EXTEND NUMBER OF BYTES TO 16 BITS 
MOV DX, CBX+1)] 7GET PORT DEVICE ADDRESS 
LEA $1,C0BX+3] 7;POINT TO FIRST DATA BYTE 
CLD 7SELECT AUTOINCREMENTING 
, 
7;SEND DATA BYTES TO PORT ADDRESS 
OUTLP: 
LODSB 7;GET NEXT DATA BYTE 
OUT DX,AL ;OUTPUT DATA TO PORT 
LOOP OUTLP ;CONTINUE UNTIL ALL DATA BYTES 
7 SENT TO CURRENT PORT 
JMP IPORTS 7PROCEED TO NEXT PORT ENTRY 
EXIPOR: RET 
; SAMPLE EXECUTION: 
, 
INITIALIZE 


8253 PIT (PROGRAMMABLE INTERVAL TIMER) 

8251 SERIAL INTERFACE (PROGRAMMABLE COMMUNICATION INTERFACE) 
8255 PARALLEL INTERFACE (PROGRAMMABLE PERIPHERAL INTERFACE) 
8250 SERIAL INTERFACE (ASYNCHRONOUS COMMUNICATIONS ELEMENT) 


we Ns Ns Ne Ne Ne 
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7 
; 
7ARBITRARY PORT ADDRESSES 


, 
7 8253 PIT ADDRESSES 


PITO EQU OFO70H 78253 CHANNEL 0 
PIT1 EQU OFO71H 78253 CHANNEL 1 
PIT2 EQU OFO72H 78253 CHANNEL 2 


PITMDE EQU OFO73H 78253 MODE WORD 


a 


7 8251 PCI ADDRESSES 


PCID EQU OF100H 78251 DATA PORT 
PCIC EQU OF101H 78251 CONTROL/STATUS PORT 
7 


7; 8255 PPI ADDRESSES 


PPIPA EQU OF200H 78255 PORT A 
PPIPB EQU OF201H 78255 PORT B 
PPIPC EQU OF202H 78255 PORT C 


PPIC EQU OF203H 78255 CONTROL PORT 


a 


7 8250 ACE ADDRESSES 


av 
ACERBR- EQU OF400H 38250 RECEIVER BUFFER REGISTER 
ACETHR EQU OF400H 78250 TRANSMITTER HOLDING REG 
ACEIER EQU OF401H 38250 INTERRUPT ENABLE REGISTER 
ACEIIR EQU OF402H 38250 INTERRUPT IDENTIFICATION 
; REGISTER 

ACELCR' EQU OF403H 38250 LINE CONTROL REGISTER 
ACEMCR’ EQU OF404H 38250 MODEM CONTROL REGISTER 
ACELSR' EQU OF405H 38250 LINE STATUS REGISTER 
ACEMSR-~ EQU OF406H 38250 MODEM STATUS REGISTER 
ACESCR’ EQU OF407H 38250 SCRATCHPAD REGISTER 
ACEDLL EQU OF400H 38250 DIVISOR LATCH (LSB) 
ACEDLM EQU OF401H 38250 DIVISOR LATCH (MSB) 
SC8E: 

MOV BX,OFFSET PINIT ;POINT TO INITIALIZATION ARRAY 

CALL IPORTS 7 INITIALIZE PORTS 

MOV DX,PCID ;DUMMY READ TO BE SURE 8251 IS 

IN AL,DX >; IN CORRECT STATE 

MOV DX,ACERBR ;DUMMY READ TO BE SURE 8250 IS 

IN AL,DX >; IN CORRECT STATE - CLEAR STATUS 

; AND POSSIBLE STRAY DATA 
JMP SC8E ;REPEAT TEST 


7 


INITIALIZE 8253 PIT COUNTER 0 


7 
, 
, 

, OPERATE COUNTER SO IT GENERATES A SQUARE WAVE, DECREMENTING 
; THE COUNTER ON THE NEGATIVE (FALLING) EDGE OF EACH 


8E Initialize l/O ports (IPORTS) 325 


CLOCK PULSE. THE PERIOD OF THE SQUARE WAVE IS THE 
INITIAL VALUE LOADED INTO THE COUNTER. 

MAKE COUNT BINARY, SET INITIAL VALUE TO 13 DECIMAL. 

NOTE: 8253 RELOADS COUNTER WITH ORIGINAL COUNT AFTER EACH 
SQUARE WAVE IS GENERATED. 

NOTE: IF THE INITIAL VALUE IS ODD, THE PULSES ARE NOT REALLY 
SQUARE. THE OUTPUT FROM PIN 10 OF THE 8253 WILL BE HIGH 
FOR (N+1)/2 COUNTS AND LOW FOR (N-1)/2 COUNTS, WHERE N IS 
THE INITIAL VALUE. IN THE PRESENT CASE, THE OUTPUT WILL 
BE HIGH FOR 7 COUNTS AND LOW FOR 6 COUNTS. 


wes “Te Te Ne Ne Ne Ns Ne Ne Ve 


THIS INITIALIZATION PRODUCES AN 8251 PCI CLOCK FOR 9600 BAUD 
TRANSMISSION. 

IT ASSUMES A 2 MHZ CLOCK INPUT TO PIN 9, SO A COUNT OF 
2,000,000/153,600 = 13 WILL GENERATE A 153,600 (16 * 9600) 
HZ SQUARE WAVE FOR PCI PINS 9 (TRANSMIT CLOCK) AND 
25 (RECEIVE CLOCK). PCI IS OPERATING IN DIVIDE BY 
16 CLOCK MODE. 


we Ne Ns Te Ne Ns No 


PINIT DB 1 OUTPUT ONE BYTE 
DW PITMDE 7DESTINATION IS MODE REGISTER 
0B 00110110B 7BIT 0 = O (BINARY COUNT) 


7BITS 3..1 = 011 (MODE 3 - SQUARE 
7 WAVE RATE GENERATOR) 
,BITS 5,4 = 11 CLOAD 2 BYTES TO 


, COUNTER) 
7BITS 7,6 = 00 (SELECT COUNTER QO) 
DB 2 7OUTPUT TWO BYTES 
DW PITO 7DESTINATION IS COUNTER O 
DB 13 ;LOW BYTE OF COUNTER 
DB 0 7HIGH BYTE OF COUNTER 


aw 

7 INITIALIZE 8251 FOR ASYNCHRONOUS SERIAL I/0. 

RESET 8251 IN SOFTWARE BY SENDING IT 3 BYTES OF QO, 
FOLLOWED BY 1 BYTE OF 40H CRESET COMMAND) 

SET ASYNCHRONOUS MODE, 8-BIT CHARACTERS, NO PARITY, 
2 STOP BITS, 16 TIMES CLOCK. 

ENABLE TRANSMITTER AND RECEIVER, RESET ERROR 


we Ne Ne Ts Ns Ne 


INDICATORS 

0B 6 OUTPUT SIX BYTES 

DW PCIC 7DESTINATION IS PCI CONTROL PORT 
7ASYNCHRONOUS MODE INSTRUCTION 

DB 0 ;RESET 8251 FOR SURE BY EXECUTING 

DB 0 7 WORST-CASE INITIALIZATION SEQUENCE 

DB 0 7 TO GUARANTEE COMMAND FORMAT 

DB 40H 7 FOLLOWED BY A RESET COMMAND 

DB 11001110B 7 ASYNCHRONOUS MODE INSTRUCTION 


7BITS 1,0 = 10 (16X BAUD RATE FACTOR) 
,BITS 3,2 = 11 (8-BIT CHARACTERS) 
,BIT 4 = O CPARITY DISABLED) 

7BIT 5 = O (DON'T CARE) 

7BITS 7,6 = 11 (2 STOP BITS) 


7ASYNCHRONOUS COMMAND INSTRUCTION 
DB 000101118 - ;BIT O = 1 (TRANSMIT ENABLE) 
7BIT 1 = 1 (DATA TERMINAL READY) 
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(NO RESET) 
(NOT HUNTING) 


7 BIT 
7,BIT 


;BIT 2 = 1 (RECEIVE ENABLE) 
7BIT 3 = O (NO BREAK CHARACTER) 
,BIT 4 = 1 CERROR RESET) 
7BIT 5 = O (NO REQUEST TO SEND) 
6 0 
7 0 


7 
,INITIALIZE 8255 PPI (PARALLEL INTERFACE) 


s 
a 


PORT A INPUT, PORT B OUTPUT, UPPER 4 BITS OF PORT 


a 
; C OUTPUT, LOWER 4 BITS OF PORT C INPUT. NO AUTOMATIC 
; HANDSHAKING SIGNALS (MODE O - BASIC I/0) 
a 
DB 1 ;OUTPUT 1 BYTE 
DW PPIC zDESTINATION IS PPI CONTROL PORT 
DB 10010001B ;BIT O = 1 CLOWER PORT C INPUT) 
7BIT 1 = O (PORT B OUTPUT) 
7BIT 2 = O CPORT B MODE IS OQ) 
7BIT 3 = O CUPPER PORT C OUTPUT) 
7BIT 4 = 1 (PORT A INPUT) 
7BITS 6, 5 = 00 (PORT A MODE IS QO) 
;BIT 7 = 1 (MODE SELECT COMMAND) 


,INITIALIZE 8250 ACE CUART) 


7 

; SELECT 8-BIT CHARACTERS, NO PARITY, 2 STOP BITS 

; CLOCK RATE = 1200 BAUD CREQUIRING A DIVISOR OF 96 IF THE 

; CLOCK IS DERIVED FROM A 1.8432 MHZ OSCILLATOR AS IN THE 

; IBM PC). 

; DISABLE ALL INTERRUPTS 

, 
DB 1 ;OUTPUT 1 BYTE 
DW ACEIER 7DESTINATION IS INTERRUPT ENABLE 

7 REGISTER 

DB 0 ;SET BIT 7 TO ACCESS DIVISOR LATCH 
DB 1 7OUTPUT 1 BYTE 
DW ACELCR 7DESTINATION IS LINE CONTROL REGISTER 
dB 100000008 7SET BIT 7 TO ACCESS DIVISOR LATCH 
DB 1 ;OUTPUT 1 BYTE 
DW ACEDLM 7DESTINATION IS MSB OF DIVISOR LATCH 
DB 0 7HIGH BYTE OF DIVISOR = 0 
DB 1 7OUTPUT 1 BYTE 
DW ACEDLL 7DESTINATION IS LSB OF DIVISOR LATCH 
DB 96 ;LOW BYTE OF DIVISOR = 96 
DB 1 7OUTPUT 1 BYTE 
DW ACELCR 7DESTINATION IS LINE CONTROL REGISTER 
DB 00000111 7BITS 0,1 = 1 (8-BIT CHARACTERS) 


;BIT 2 = 1 (2 STOP BITS) 

;BIT 3 = O (DISABLE PARITY) 

;BITS 4,5 = 0 CPARITY CONTROL-DON'T 
3; CARE) 

;BIT 6 = 0 (DISABLE BREAK) 

;BIT 7 =-0 CACCESS DATA REGISTER) 
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END OF PORT INITIALIZATION DATA 
DB 0 7 TERMINATOR 


END 


g Interrupts 


9A Unbuffered interrupt-driven I/O using an 8250 ACE 
(SINTIO) 


Performs interrupt-driven input and output using an 8250 ACE (Async- 
hronous Communications Element or UART) and single-character 


input and output buffers. Consists of the following subroutines: 
INCH reads a character from the input buffer. 

INST determines whether the input buffer is empty. 
OUTCH writes a character into the output buffer. 
OUTST determines whether the output buffer is full. 


vk Y NE 


INIT initializes the 8250 ACE, the software flags, and the interrupt 


system (vector and controller). The flags show when data is available for 
transfer between the main program and the interrupt service routines. 


6. ACETST checks the operation of an 8250 ACE by putting it in the 
loopback mode and checking whether all characters can be sent and 


received back correctly. 


7. IOSRVC (the interrupt service routine) identifies and services the 
interrupt. In response to the input interrupt, it reads a character from 
the 8250 ACE into the input buffer. In response to the output interrupt, 


it writes a character from the output buffer into the 8250 ACE. 


378 
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Procedures 


1. INCH waits for a character to become available, clears the Data 
Ready flag (RECDF), and loads the character into register AL. 


2. INST sets the Carry flag from the Data Ready flag (RECDF). 


3. OUTCH waits for the output buffer to empty, stores the character 
in the buffer, and sets the Character Available flag (TRNDF). If no 
output interrupt is expected (i.e. it has been cleared because it occurred 
when no data was available), OUTCH sends the data to the ACE 
immediately. 


4. OUTST sets the Carry flag from the Character Available flag 
(TRNDF). | 


5. INIT initializes the 8250 ACE by placing values in its divisor latch 
and line control register, clears the software flags, sets up the interrupt 
vectors, and initializes the 8259 interrupt controller. See Subroutine 8E 
for more details about initializing an 8250 ACE. 

One problem with I/O devices such as the 8250 ACE is that they 
operate at clock rates much lower than that of the CPU. A long wait 
time may be necessary between accesses to ensure a proper response. In 
non-pipelined processors, the delay caused by instruction fetch and 
decode is generally sufficient to avoid difficulties. However, in a 
pipelined processor like the 8086, instruction prefetch may make this 
delay very short. Furthermore, the traditional solution of placing NOPs 
after an access may not help since they may also be prefetched. 

The easiest way to ensure sufficient wait time is to put a jump after 
each access. If this jump simply directs the processor to the next 
sequential instruction (i.e. JMP $+2), it works like a NOP. However, 
like any jump, it clears out the pipeline, thus forcing a substantial delay 
between accesses. Furthermore, JMP itself is a slow-executing instruc- 
tion. We have put a JMP $+2 instruction after each 8250 access in the 
subroutines. 


6. ACETST puts the 8250 ACE in its loopback mode. It then attempts 
to send and receive back all possible characters (O0-FF). If a character is 
received incorrectly, ACETST returns immediately with the Carry set 
and the character’s value in AL. If all characters are received correctly, 
it returns with the Carry cleared. 


7. IOSRVC examines the ACE’s interrupt identification register to 
determine whether the interrupt is from the transmitter (bits 0-2 = 
010). If not, it assumes the interrupt is from the receiver. It then reads 
the data from the 8250 ACE, saves it in memory, and sets the Data 
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Ready flag (RECDF). The lack of buffering causes the loss of unread 
data at this point. 

If the output interrupt occurred, the program determines whether 
data is available. If it is, the program sends it to the 8250 ACE and 
clears the Character Available flag (TRNDF). If not, the program 
simply clears the output interrupt (in the 8259 interrupt controller). 
Note that reading the interrupt identification register in an 8250 ACE is 
sufficient by itself to clear a transmitter interrupt. Thus clearing the 8259 
interrupt removes all traces of the transmitter interrupt from the system, 
allowing the recognition of later receiver or transmitter interrupts on the 
same line. 

Most 8086 interrupt systems have a controller that responds to inter- 
rupt acknowledgements from the CPU and contains prioritization, vec- 
toring, and other management logic. The example in the listing uses the 
popular 8259 Programmable Interrupt Controller (PIC). The 8259 PIC 
latches interrupt requests from peripheral chips, blocks subsequent 
requests from the same and lower priority level, and generates source 
identification to vector the 8086. The service routine must send the 8259 
PIC an End-of-Interrupt (EOI) command before concluding to unblock 
subsequent requests. 

Note that when the 8259 is in its usual ‘edge detect’ mode, it recog- 
nizes only transitions on the interrupt lines. Thus, an interrupt from a 
peripheral chip can cause only a single processor interrupt, no matter 
how long it remains active. Jigour has described the 8259 device in detail 
in ‘Using the 8259A Programmable Interrupt Controller,’ Intel Applica- 
tion Note AP-59, Intel Corporation, Santa Clara, CA, 1979. 

The special problem with the output interrupt is that it may occur 
when no data is available. It cannot be ignored or it will assert itself 
indefinitely, creating an endless loop. The solution is simply to clear the 
8259 PIC’s interrupt by sending it an EOI command. Remember that 
reading the 8250’s interrupt identification register clears the transmitter 
interrupt automatically if it is active. 

But now a new problem arises when output data becomes available. 
That is, since the interrupt has been cleared, it obviously cannot inform 
the system that the 8250 ACE is ready to transmit. The solution is a flag 
that is cleared if the output interrupt has occurred without being ser- 
viced. We call this flag Output Interrupt Expected (OIE). 

The initialization routine clears OIE (since the 8250 ACE surely starts 
out ready to transmit). The output service routine clears it when an 
output interrupt occurs that cannot be serviced (no data is available) 
and sets it after sending data to the 8250 (in case it might have been 
cleared). Now the output routine OUTCH can check OIE to determine 
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whether the output interrupt has already occurred (0 indicates it has, FF 
hex that it has not). If no output interrupt is expected, OUTCH simply 
sends the data immediately. 

Unserviceable interrupts occur only with output devices, since input 
devices always have data ready to transfer when they request service. 
Thus, output devices cause more initialization and sequencing problems 
in interrupt-driven systems than do input devices. 


Entry conditions 

1. INCH: none 

2. INST: none 

3. OUTCH: character to transmit in register AL 
4. OUTST: none 

5. INIT: none 

6. ACETST: none 


Exit conditions 
1. INCH: character in register AL 

2. INST: Carry = 0if input buffer is empty, 1 if it is full 

3. OUTCH: none | 

4. OUTST: Carry = 0if output buffer is empty, 1 if it is full 
5. INIT: none 


6. ACETST: Carry = 0 and register AL = 0 if loopback test succeeds 
for all characters, Carry = 1 and register AL contains value for which 
test failed otherwise 


Registers used 

1. INCH: AL, F 

2. INST: AL, F 

3. OUTCH: AL, DX, F 
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4. OUTST: F 
5. INIT: AL, BX, DX 
6. ACETST: AL, BL, DX, F 


Execution time 


1. INCH: 96 cycles if a character is available 
2. INST: 20 cycles 


3. OUTCH: 149 cycles if the output buffer is empty and an output 
interrupt is expected, 88 additional cycles to send the data to the ACE if 
no output interrupt is expected. 


4. OUTST: 39 cycles 
5. INIT: 447 cycles 


6. ACETST: Depends on 8250’s baud rate and number of bits per 
character, since a complete test requires the sending and receiving of 
256 characters. For 11-bit characters at 1200 baud, a complete test takes 
about 2.35 s. 


7. IOSRVC: 223 cycles to service an input interrupt if a character is 
ready, 169 cycles to service an output interrupt if no data is available, 
275 cycles to service an output interrupt if the output buffer is full. 

Note: The execution times for IOSRVC do not include the 8086’s 
interrupt response time (51 cycles). 


Program size 281 bytes, not including the loopback test (47 bytes). 


Data memory required 5 bytes anywhere in RAM for the received 
data (address RECDAT), receive data flag (address RECDF), transmit 
data (address TRNDAT), transmit data flag (address TRNDF), and 
output interrupt expected flag (address OIE). | 


Title Simple interrupt input and output using an 8250 
ACE and single character buffers. 

Name: SINTIO 

Purpose: This program includes 5 subroutines that 


perform interrupt driven input and output using 
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Entry: 


Exit: 


Registers Used: 


an 8250 UART. It also contains an 1/0 
interrupt service routine and a loopback test 
routine for the 8250 device. 


INCH 
Read a character. 

INST 
Determine input status (whether input 
buffer is empty). 

OUTCH 
Write a character. 

OUTST 
Determine output status (whether output 
buffer is full). 


INIT 

Initialize UART and interrupt system 
ACETST 

Test 8250 ACE operation 
IOSRVC 


Respond to 8250 ACE I/O interrupts 


INCH 

No parameters. 
INST 

No parameters. 
OUTCH 

Register AL = character to transmit 
OUTST 

No parameters. 
INIT 

No parameters. 
ACETST 

No parameters 


INCH 
Register AL = character received 
INST 
Carry = 0 if input buffer is empty, 
1 if character is available. 
OUTCH 
No parameters 
OUTST 
Carry = 0 if output buffer is empty, 
1 if it is full. 
INIT 
No parameters. 
ACETST 
Carry = 0 and register AL = 0 if 8250 ACE 
passes loopback test, Carry = 1 and register 
AL contains value for which test failed 
otherwise. 


INCH 
AL,F 
INST 
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AL,F 
OUTCH 
AL,DX,F 
OUTST 
F 
INIT 
AL,BX,DX 
ACETST 
AL,BL,DX,F 


Time: INCH 

96 cycles if a character is available 

INST 
20 cycles 

OUTCH 
149 cycles if output buffer is empty and 
output interrupt is expected 

OUTST 
39 cycles 

INIT 
447 cycles 

ACETST 
Depends on 8250's baud rate and number of 
bits per character, since a complete test 
requires the 8250 to send and receive 256 
characters 

IOSRVC 
223 cycles to service an input interrupt if 
a character is ready, 275 cycles to service 
an output interrupt if the output buffer is 
full, 169 cycles to service an output 
interrupt if no data is available. These times 
do not include the 8086's interrupt response 
time (51 cycles). 


Size: Program 328 bytes 
Data 5 bytes 3 


we We We Te Ne Me Me Me Me Me Ue Te Me Hs Me Us Te Ne Ne Ne Ns Vs Vs Ws Ve Ws Ns Ve Ve Ve Vs Vea Ve Ns Vs Ve Ns Ne 


, 
;ESTABLISH SEGMENT ADDRESS FOR USE IN INTERRUPT VECTORS 


a 

CSEG EQU OF81H 7ARBITRARY BASE ADDRESS OF CODE 
7 SEGMENT - USUALLY ESTABLISHED 
7 IN A SEGMENT STATEMENT NOT 
7 SHOWN HERE 


a 

78250 ACE (CUART) EQUATES 

7 8250 IS PROGRAMMED FOR 

3 1200 BAUD ASSUMING A 1.84352 MHZ OSCILLATOR INPUT CAS ON IBM PC) 
7 8-BIT CHARACTERS 

; 2 STOP BITS 

> NO PARITY 

;ARBITRARY 8250 ACE PORT ADDRESSES (TAKEN FROM IBM PC) 


a 
ACEBASE EQU 3F8H 7ACE BASE ADDRESS 
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ACERBR- EQU 3F8H 7ACE RECEIVER BUFFER REGISTER 
ACETHR EQU 3F8H 7ACE TRANSMITTER HOLDING REGISTER 
ACEIER EQU 3F9H 7ACE INTERRUPT ENABLE REGISTER 
ACEIIR EQU 3 FAH 7ACE INTERRUPT IDENTIFICATION REGISTER 
ACELCR EQU 3FBH 7ACE LINE CONTROL REGISTER 

ACEMCR EQU 3FCH 7ACE MODEM CONTROL REGISTER 
ACELSR- EQU 3FDH 7ACE LINE STATUS REGISTER 

ACEMSR  EQU 3FEH 7ACE MODEM STATUS REGISTER 

ACESCR EQU 3FFH 7ACE SCRATCHPAD REGISTER 

ACEDLL EQU 3F8H 7ACE DIVISOR LATCH (LSB) 

ACEDLM EQU 3F9H 7ACE DIVISOR LATCH (MSB) 


7 INTERRUPT VECTOR 
ASYNIV EQU 0030H 7ASYNCHRONOUS I/0 INTERRUPT VECTOR 


78250 LINE CONTROL INSTRUCTION 
LCMODE EQU 00000111B ;BITS 1,0 = 11 (8 BIT WORD LENGTH) 
7BIT 2 = 1 (2 STOP BITS) 
;BIT 3 = O (PARITY DISABLED) 
*BITS 5,4 = 00 (DON'T CARE) 
7BIT 6 = O (DISABLE BREAK) 
,BITS 7 = O (POINT TO DATA REGISTER) 
78250 MODEM CONTROL INSTRUCTION 
MCMODE EQU 000000118 7BIT 0 = 1 (SET DATA TERMINAL READY) 
,BIT 1 = 1 (SET REQUEST TO SEND) 
*BITS 3,2 = 00 (DON'T CARE) 
,BIT 4 = 0 (DISABLE INTERNAL LOOPBACK) 
,BITS 7,6,5 = 000 (DON'T CARE) 


78250 INTERRUPT ENABLE INSTRUCTION 
INTCMD EQU 000000118 ;BIT 0 = 1 CENABLE RECEIVE DATA 
7 INTERRUPT) 
;BIT 1 = 1 CENABLE TRANSMITTER EMPTY 
7 INTERRUPT) 
,BIT 2 = 0 (DISABLE LINE STATUS 
7 INTERRUPT) 
7BIT 3 = 0 (DISABLE MODEM STATUS 
7 INTERRUPT) 
*BITS 4-7 = 0 (DON'T CARE) 


78250 DIVISOR LATCH ACCESS INSTRUCTION | 
DLADDR' EQU 100000008 ;BIT 7 = 1 (POINT TO DIVISOR LATCH) 


78250 DIVISOR LATCH VALUE (96 FOR 1200 BAUD ASSUMING A 1.8432 MHZ 
7 OSCILLATOR INPUT 
DIVLS EQU 96 ;LESS SIGNIFICANT BYTE OF DIVISOR 
,OUTPUT FREQUENCY EQUALS THE INPUT 
7 FREQUENCY/(BAUD DIVISOR X 16) 
> = 1.8432 MHZ/(96 X 16) = 1200 BAUD 
DIVMS EQU 0 ;MORE SIGNIFICANT BYTE OF DIVISOR 


78259 PROGRAMMABLE INTERRUPT CONTROLLER (PIC) EQUATES 
, 8259 PIC IS PROGRAMMED FOR 

, SINGLE DEVICE (RATHER THAN MULTIPLE 8259'S) 

, FULLY NESTED MODE 

, ALL INTERRUPTS ENABLED 
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7 INTERRUPT LEVELS 8-15 

zARBITRARY 8259 PIC PORT ADDRESSES 

PIcOo EQU 20H zPIC PORT 1 
PIC1 EQU 21H ;PIC PORT 2 


78259 INITIALIZATION COMMAND BYTES ICW1, ICW2, AND ICW4 (NO ICW3 
; NEEDED IN SINGLE 8259 SYSTEMS) 


ICw1 EQU 00010011B ;BIT O = 1 CICW4 NEEDED IN 8086 SYSTEMS) 
;BIT 1 = 1 (SINGLE 8259) 
;BIT 2 = O (NOT USED WITH 8086/8088) 
;BIT 3 = O CEDGE DETECT) 
;BIT 4 = 1 CFIXED) 
;BITS 5,6,7 = 000 (NOT USED IN 8086/88) 
Icw2 EQU 00001000B ;BITS 7-3 = 00001 (5 MSB'S OF SOURCE 


> IDENTIFICATION CODE) 
;BITS 2-0 = 000 (NOT USED) 

ICW4 EQU 000010018 ;BIT O = 1 (8086/88 SYSTEM) 
7;BIT 1 = 0 (NO AUTOMATIC END OF 
3 INTERRUPT) 
;BIT 2 = 0 (DON'T CARE) 
;BIT 3 = 1 (BUFFERED DATA BUS) 
7BIT 4 O (NO CASCADING) 
;BITS 7-5 = 000 (NOT USED) 


78259 OPERATING COMMAND BYTE 


EOI EQU 001000008 z;END OF INTERRUPT COMMAND BYTE 
a 
; READ A CHARACTER FROM INPUT BUFFER 
INCH: 
CALL INST ;GET INPUT STATUS 
~JNC INCH ;WAIT IF NO CHARACTER AVAILABLE 
PUSHF ;SAVE CURRENT INTERRUPT STATUS 
CLI ;DISABLE INTERRUPTS WHILE CHANGING 
7 SOFTWARE FLAG 
MOV BYTE PTR CRECDF],0 ; INDICATE INPUT BUFFER EMPTY 
MOV AL,CRECDATI ;GET CHARACTER FROM INPUT BUFFER 
POPF ;RESTORE PREVIOUS INTERRUPT STATUS 
RET 
A 
; DETERMINE INPUT STATUS (CARRY = 1 IF DATA AVAILABLE, O IF NOT) 
, 
INST: 
MOV AL,CRECDF] ;GET DATA READY FLAG 
SHR AL,1 ;SET CARRY FROM DATA READY FLAG 
3 CARRY = 71 IF CHARACTER AVAILABLE 
RET 
a 
; WRITE A CHARACTER INTO OUTPUT BUFFER 
; SEND IT ON TO ACE IF NO OUTPUT INTERRUPT EXPECTED 
? 
OUTCH: 


;WAIT FOR OUTPUT BUFFER TO EMPTY, STORE NEXT CHARACTER 
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WAITOC: 
CALL OUTST GET OUTPUT STATUS 
Jc WAITOC sWAIT IF OUTPUT BUFFER FULL 
PUSHF SAVE CURRENT INTERRUPT STATUS 
CLI DISABLE INTERRUPTS WHILE WORKING 
; WITH SOFTWARE FLAGS 
MOV CTRNDATI,AL STORE CHARACTER IN INPUT BUFFER 
MOV BYTE PTR CTRNDFJ,OFFH  ;INDICATE INPUT BUFFER FULL 
MOV AL,LOIE] ;TEST OUTPUT INTERRUPT EXPECTED FLAG 
TEST AL,AL 
JNZ EXITOC BRANCH IF OUTPUT INTERRUPT EXPECTED 
CALL OUTDAT OTHERWISE, SEND CHARACTER TO ACE NOW 
EXITOC: POPF RESTORE PREVIOUS INTERRUPT STATUS 
RET 
wv 
: DETERMINE OUTPUT STATUS (CARRY = 1 IF OUTPUT BUFFER FULL) 
; 
OUTST: 
PUSH AX zSAVE REGISTER AX 
MOV AL,CTRNDF] GET TRANSMIT FLAG 
SHR AL,1 ;SET CARRY FROM TRANSMIT FLAG 
POP AX RESTORE REGISTER AX 
RET ;CARRY = 1 IF BUFFER FULL, O IF NOT 


7 
7INITIALIZE INTERRUPT SYSTEM AND 8250 ACE 


a 
INIT: 


, | 
7DISABLE INTERRUPTS DURING INITIALIZATION BUT SAVE 
7 PREVIOUS VALUE OF INTERRUPT FLAG 


PUSHF 
CLI 


7SAVE CURRENT INTERRUPT STATUS 
7DISABLE INTERRUPTS DURING 
> INITIALIZATION 


7 
7INITIALIZE 8250 ACE CUART) 


MOV 
SUB 
OUT 
JMP 
MOV 
MOV 
OUT 
JMP 
MOV 
MOV 
OUT 
JMP 
MOV 
MOV 
OUT 
JMP 
MOV 


DX,ACEIER 
AL,AL 
DX,AL 

$+2 
DX,ACELCR 
AL,DLADDR 
DX,AL 

$+2 
DX,ACEDLM 
AL,DIVMS 
DX,AL 

$+2 

DX ,ACEDLL 
AL,DIVLS 
DX,AL 

$+2 
DX,ACELCR 


7POINT TO INTERRUPT ENABLE REGISTER 
7RESET INTERRUPT ENABLES 


;DELAY BETWEEN 8250 OPERATIONS 
7POINT TO LINE CONTROL REGISTER 
7ADDRESS DIVISOR LATCH 


;DELAY BETWEEN 8250 OPERATIONS 
7POINT TO DIVISOR LATCH - MSB 
7SET MSB OF DIVISOR 


*;DELAY BETWEEN 8250 OPERATIONS 


7POINT TO DIVISOR LATCH - LSB 
7SET LSB OF DIVISOR 


;DELAY BETWEEN 8250 OPERATIONS 
7POINT TO LINE CONTROL REGISTER 
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MOV 


OUT 
JMP 
MOV 
IN 

JMP 
MOV 
IN 

JMP 
SHR 
JNC 
MOV 
IN 

JMP 


MOV 
MOV 
OUT 
JMP 
MOV 
MOV 
OUT 
JMP 


AL,LCMODE 


DX,AL 

$+2 
DX,ACEMSR 
AL,DX 

$+2 
DX,ACELSR 
AL,DX 

$+2 

AL,1 
SETINT 
DX,ACERBR 
AL,DX 

$+2 


DX,ACEIER 
AL,INTCMD 
DX,AL 

$+2 
DX,ACEMCR 
AL,MCMODE 
DX,AL 

$+2 


;SET ACE FOR 8-BIT WORDS, 2 STOP 
7 BITS, NO PARITY 


;DELAY BETWEEN 8250 OPERATIONS 

7POINT TO MODEM STATUS REGISTER 

7READ TO CLEAR POSSIBLE OLD INTERRUPT 
;DELAY BETWEEN 8250 OPERATIONS 

7POINT TO LINE STATUS REGISTER 

7CLEAR ERROR INDICATORS, CHECK FOR DATA 
;DELAY BETWEEN 8250 OPERATIONS 

7CHECK IF DATA READY 

7 JUMP IF NO DATA 

7POINT TO RECEIVER BUFFER REGISTER 
7READ BUFFER TO EMPTY IT FOR SURE 
;DELAY BETWEEN 8250 OPERATIONS 


7POINT TO INTERRUPT ENABLE REGISTER 
7ENABLE RECEIVE, TRANSMIT INTERRUPTS 


;DELAY BETWEEN 8250 OPERATIONS 
7POINT TO MODEM CONTROL REGISTER 
7;MODEM CONTROL COMMAND 


;DELAY BETWEEN 8250 OPERATIONS 


7INTTIALIZE SOFTWARE FLAGS 


a 

SUB 
MOV 
MOV 
MOV 


AL,AL 


CRECDFI],AL 
CTRNDFI,AL 


COIE],AL 


7NO INPUT DATA AVAILABLE 

7OUTPUT BUFFER EMPTY 

7 INDICATE NO OUTPUT INTERRUPT NEEDED 
3 8250 READY TO TRANSMIT INITIALLY 


, 
7 INITIALIZE INTERRUPT VECTOR 


a 
PUSH 


SUB 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


POP 


DS 
AX ,AX 


DS ,AX 


AX,OFFSET IOSRVC 


BX,ASYNIV 
CBX],AX 
AX,CSEG 
CBX+2],AX 


DS 


7 SAVE CURRENT DATA SEGMENT 

7ACCESS INTERRUPT VECTOR IN SEGMENT 
, 0 

a 


7GET OFFSET FOR SERVICE ROUTINE 
7GET INTERRUPT VECTOR LOCATION 
,LOAD OFFSET INTO INTERRUPT VECTOR 
7GET CODE SEGMENT NUMBER 
7LOAD CODE SEGMENT NUMBER INTO 
7 INTERRUPT VECTOR 
7RESTORE CURRENT DATA SEGMENT 


, 
7 INITIALIZE 8259 INTERRUPT CONTROLLER 


, 
;I1F THE 8259 WAS PREVIOUSLY INITIALIZED AND YOU WANT TO ENABLE 
; AN ADDITIONAL INTERRUPT, EXECUTE THE FOLLOWING CODE (SHOWN 


; ENABLING INTERRUPT 4) 


7 
MOV 
IN 
AND 


DX,PIC1 
AL,PIC1 


AL,11101111B 


7GET CURRENT INTERRUPT MASKS 


7 ENABLE INTERRUPT 4 ALSO 
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OUT PIC1,AL 

POPF 7RESTORE PREVIOUS INTERRUPT STATUS 
RET 

3TO INITIALIZE THE 8259 AND ENABLE ALL INTERRUPTS, EXECUTE 
7, THE FOLLOWING CODE 


MOV DX,PICO 7;SEND FIRST COMMAND BYTE TO PIC PORT 0 
MOV AL,1CW1 

OUT DX,AL 

MOV DX,PIC1 7SEND SECOND COMMAND BYTE TO PIC PORT 1 
MOV AL,1CW2 

OUT DX,AL 

MOV AL,ICW4 7SEND FINAL COMMAND BYTE TO PIC PORT 1 
OUT DX,AL 

POPF 7RESTORE PREVIOUS INTERRUPT STATUS 

RET 


’ 
7ASYNCHRONOUS 1/0 INTERRUPT HANDLER 


7 
IOSRVC: 


PUSH AX 7 SAVE REGISTERS 

PUSH DX 

MOV DX,ACEIIR 7POINT TO INTERRUPT ID REGISTER 

IN AL,DX 7READ CURRENT INTERRUPT STATUS 

JMP $+2 ;DELAY BETWEEN 8250 OPERATIONS 

CMP AL,00000010B 7CHECK IF TRANSMITTER EMPTY INTERRUPT 
JZ TXINTR 7JUMP IF TRANSMITTER INTERRUPT 


7NOTE THAT IF THE TRANSMITTER INTERRUPT 
7 IS ACTIVE, READING THE INTERRUPT 
7 IDENTIFICATION REGISTER WILL CLEAR IT 


, 
7 INPUT CREAD) INTERRUPT HANDLER 


a 
RCINTR: 


, 
7READ LINE STATUS TO CLEAR POSSIBLE ERROR FLAGS 


a 
MOV DX,ACELSR 7POINT TO LINE STATUS REGISTER 
IN AL,DX 7READ TO CLEAR ERROR FLAGS 


JMP $+2 ;DELAY BETWEEN 8250 OPERATIONS 


av 
7;READ DATA AND SAVE IT IN INPUT BUFFER 
7 INDICATE INPUT DATA AVAILABLE 


7 

MOV DX,ACERBR 7POINT TO RECEIVER BUFFER REGISTER 

IN AL,DX 

JMP $+2 ;DELAY BETWEEN 8250 OPERATIONS 

MOV CRECDATI,AL 7 SAVE DATA IN INPUT BUFFER 

MOV BYTE PTR CRECDF],OFFH 7 INDICATE INPUT DATA AVAILABLE 
JMP IOEXIT 7JUMP TO END OF SERVICE ROUTINE 


7 
;OUTPUT CWRITE) INTERRUPT HANDLER 


7 
TXINTR: 
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MOV AL,CTRNOFI 7TEST DATA AVAILABLE FLAG 

TEST AL,AL 

JZ NODATA 7JUMP IF NO DATA TO TRANSMIT 
CALL OUTDAT 7SEND DATA TO 8250 ACE 

JMP IOEXIT 7JUMP TO END OF SERVICE ROUTINE 


a 

71F AN OUTPUT INTERRUPT OCCURS WHEN NO DATA IS AVAILABLE, 

, WE MUST CLEAR IT CIN THE 8259) TO AVOID AN ENDLESS LOOP. LATER, 
7 WHEN A CHARACTER BECOMES AVAILABLE, WE CALL THE OUTPUT ROUTINE 

7 OUTDAT TO SEND THE DATA WITHOUT WAITING FOR AN INTERRUPT. 

, THE OUTPUT ROUTINE MUST ALSO SET THE OUTPUT INTERRUPT EXPECTED 

7 FLAG AFTERWARDS. THIS PROCEDURE OVERCOMES THE PROBLEM OF AN 

7 UNSERVICED OUTPUT INTERRUPT ASSERTING ITSELF REPEATEDLY, 

> WHILE STILL ENSURING THAT OUTPUT INTERRUPTS ARE RECOGNIZED. 

,THE PROBLEM IS THAT AN OUTPUT DEVICE MAY REQUEST SERVICE BEFORE 

7 THE COMPUTER HAS ANYTHING TO SEND CUNLIKE AN INPUT DEVICE THAT 

7 HAS DATA WHEN IT REQUESTS SERVICE). 

7NOTE THAT THE 8250 TRANSMITTER INTERRUPT IS CLEARED AUTOMATICALLY 
7 BY READING THE INTERRUPT IDENTIFICATION REGISTER, SO ONLY THE 

7 8259 LEVEL MUST BE HANDLED IN THIS WAY. 


NODATA: 

MOV BYTE PTR COIE],0 7D0 NOT EXPECT AN INTERRUPT 
IOEXIT: 

MOV DX,PICO 7CLEAR 8259 INTERRUPT 

MOV AL,EOI 

OUT DX,AL 

POP DX 7RESTORE REGISTERS 

POP AX 

IRET 


FHKE KKK KEKE EREREKREEEREKK KEKE 
7,ROUTINE: OUTDAT 

7PURPOSE: SEND A CHARACTER TO THE UART 
7ENTRY: TRNDAT = CHARACTER TO SEND 
7EXIT: NONE 

7REGISTERS USED: AL,DX 

FHKE KKK EKER KERR EKER EREKRKEREKRE 


OUTDAT: 
MOV DX,ACETHR 7POINT TO TX HOLDING REGISTER 
MOV AL, CTRNDATI 7GET DATA FROM OUTPUT BUFFER 
OUT DX,AL 7SEND DATA TO 8250 ACE 
JMP $+2 7DELAY BETWEEN 8250 OPERATIONS 
MOV BYTE PTR CTRNDFIJ,0 ; INDICATE OUTPUT BUFFER EMPTY 
MOV BYTE PTR COIEI,OFFH 7 INDICATE OUTPUT INTERRUPT 
7 EXPECTED - OIE = FF HEX 
RET 


, 

,TEST 8250 ASYNCHRONOUS COMMUNICATIONS ELEMENT (ACE) BY PUTTING IT 
, IN THE LOOPBACK MODE AND SENDING AND RECEIVING ALL POSSIBLE 

> CHARACTERS (00 THROUGH FF) 


ACETST: 


TSTCHR: 


WTRET: 


EXTEST: 
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7PUT 8250 ACE IN LOOPBACK MODE 


MOV DX,ACEMCR 7POINT TO MODEM CONTROL REGISTER 
IN AL,DX 7GET CURRENT VALUE 

JMP $+2 ;DELAY BETWEEN 8250 OPERATIONS 
OR AL,00010000B 7ENABLE LOOPBACK MODE 

OUT DX,AL 


JMP $+2 ;DELAY BETWEEN 8250 OPERATIONS 


a 

7TEST 8250 BY SENDING AND RECEIVING VALUES 00 THROUGH FF 
7EXIT IMMEDIATELY WITH CARRY SET IF ERROR 

7CLEAR CARRY IF TEST SUCCEEDS FOR ALL VALUES 


7 

SUB BL,BL 7START TEST BYTE AT ZERO 

MOV AL,BL 7GET CHARACTER 

CALL OUTCH 7SEND CHARACTER TO 8250 ACE 

CALL INST 7WAIT FOR CHARACTER TO RETURN 

JNC WTRET 

CALL INCH 7GET RETURNED CHARACTER 

CMP AL,BL 7COMPARE CHARACTER SENT TO ONE 
7 RETURNED 

STC 7 INDICATE POSSIBLE ERROR 

JNE EXTEST 7EXIT WITH CARRY SET IF ERROR 
7 NOTE: CHARACTER THAT CAUSED ERROR 
7 IS IN BL 

INC BL 7PROCEED TO NEXT CHARACTER 

JNZ TSTCHR 7CONTINUE UNTIL ALL CHARACTERS TESTED 


CLC 7 INDICATE NO ERRORS (NOTE BL = O HERE) 


a 
7DISABLE LOOPBACK MODE AND EXIT 


aw 


PUSHF 7SAVE FLAGS (PARTICULARLY CARRY) 
MOV DX,ACEMCR 7POINT TO MODEM CONTROL REGISTER 
IN AL,DX 7GET CURRENT VALUE 
JMP $+2 ;DELAY BETWEEN 8250 OPERATIONS 
AND AL,11101111B 7DISABLE LOOPBACK MODE 
OUT DX,AL 
JMP $+2 7DELAY BETWEEN 8250 OPERATIONS 
MOV AL,BL 7GET CHARACTER THAT CAUSED ERROR 
7 OR O IF TEST SUCCEEDED 
POPF 7RESTORE FLAGS (PARTICULARLY CARRY) 
RET ,EXIT (C=O IF TEST SUCCEEDED, 1 IF NOT) 


7DATA SECTION 


a 
RECDAT 
RECDF 


TRNDAT 
TRNDF 


OIE 


DB ? 7RECEIVE DATA 
DB ? 7RECEIVE DATA FLAG 
7 (0 = NO DATA, FF = DATA AVAILABLE) 
DB ? 7 TRANSMIT DATA 
DB ? 7 TRANSMIT DATA FLAG 


7 (0 = BUFFER EMPTY, FF = BUFFER FULL) 
DB ? 7OUTPUT INTERRUPT EXPECTED 
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7 (0 = NO INTERRUPT EXPECTED, - 


+ FF = INTERRUPT EXPECTED) 
: SAMPLE EXECUTION: 
= CHARACTER EQUATES 
ESCAPE EQU 1BH sASCII ESCAPE CHARACTER 
TESTCH EQU tA! sTEST CHARACTER = A 
SC9A: 
CALL INIT sINITIALIZE 8250 ACE, INTERRUPT SYSTEM 
STI s ENABLE CPU INTERRUPTS 
; 
sSIMPLE EXAMPLE - READ AND ECHO CHARACTERS 
+ UNTIL AN ESC IS RECEIVED 
LOOP: 
CALL INCH sREAD CHARACTER 
PUSH AX sSAVE CHARACTER 
CALL OUTCH sECHO CHARACTER 
POP AX *RESTORE CHARACTER 
CMP AL, ESCAPE sIS CHARACTER AN ESCAPE? 
JNE LOOP =STAY IN LOOP IF NOT 
+AN ASYNCHRONOUS EXAMPLE 
+ OUTPUT "A" TO CONSOLE CONTINUOUSLY BUT ALSO LOOK AT 
+ INPUT SIDE, READING AND ECHOING ANY INPUT CHARACTERS. 
ASYNLP: 
sOUTPUT AN "A" IF OUTPUT IS NOT BUSY 
CALL OUTST sIS OUTPUT BUSY? 
Jc ASYNLP :JUMP IF IT IS 
MOV AL, TESTCH 
CALL OUTCH sOUTPUT TEST CHARACTER 
*CHECK INPUT PORT 
sECHO CHARACTER IF ONE IS AVAILABLE 
sEXIT ON ESCAPE CHARACTER 
; 
CALL INST :IS INPUT DATA AVAILABLE? 
INC ASYNLP :JUMP IF NOT (SEND ANOTHER "“A") 
CALL INCH *GET CHARACTER 
CMP AL, ESCAPE 21S IT AN ESCAPE? 
JE DONE *BRANCH IF IT IS 
CALL OUTCH sELSE ECHO CHARACTER 
JMP ASYNLP sAND CONTINUE 
DONE: 
JMP SCOA sREPEAT TEST 
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9B Unbuffered interrupt-driven I/O using an 8255 PPI 


(PINTIO) 


Performs interrupt-driven input and output using an 8255 PPI and 


single-character input and output buffers. Consists of the following 
subroutines: 


INCH reads a character from the input buffer. 
INST determines whether the input buffer is empty. 
OUTCH writes a character into the output buffer. 


- YY NR 


OUTST determines whether the output buffer is full. 


5. INIT initializes the 8255 PPI, the interrupt vectors, and the software 
flags. The flags indicate whether data is available for transfer between 
the main program and the interrupt service routines. 


6. IOSRVC (the actual interrupt service routine) determines which 
interrupt occurred and provides the proper service. In response to the 
input interrupt, it reads a character from the 8255 PPI into the input 
buffer. In response to the output interrupt, it writes a character from the 
output buffer into the 8255 PPI. 


Procedure 


1. INCH waits for a character to become available, clears the Data 
Ready flag (RECDF), and loads the character into register AL. 


2. INST sets the Carry flag from the Data Ready flag (RECDF). 


3. OUTCH waits for the output buffer to empty, places the character 
from register AL in the buffer, and sets the character available flag 
(TRNDF). If an unserviced output interrupt has occurred (i.e. the 
output device has requested service when no data was available), 
OUTCH sends the data to the 8255 PPI immediately. 


4. OUTST sets Carry from the Character Available flag (TRNDF). 


5. INIT clears the software flags, sets up the interrupt vectors, 
initializes the 8259 interrupt controller, and initializes the 8255 PPI by 
loading its control register and interrupt enable flip-flops. See Sub- 
routine 8E for more details about initializing 8255 PPIs. 


6. IOSRVC examines the 8255 PPI’s status and control signals to 
determine which interrupt occurred. If an input interrupt occurred, it 
reads the data from the 8255 PPI, saves it in memory, and sets the Data 
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Ready flag (RECDF). The lack of buffering causes the loss of unread 
data at this point. 

If an output interrupt occurred, IOSRVC determines whether output 
data is available. If not, it simply clears the output interrupt in the 8259 
controller and disables it in the 8255 PPI. If data is available, IOSRVC 
sends it to the 8255 PPI and clears the Character Available flag 
(TRNDF). 

Most 8086 interrupt systems have a controller that responds to inter- 
rupt acknowledgements from the CPU and contains priority, vectoring, 
and other management logic. The example in the listing uses the popu- 
lar 8259 Programmable Interrupt Controller (PIC). The 8259 PIC 
latches interrupt requests from peripheral chips, blocks subsequent 
requests from the same and lower priority level, and generates source 
identification to vector the 8086. The service routine must send the 8259 
PIC an End-of-Interrupt (EOI) command before concluding to unblock 
subsequent requests. 

Note that when the 8259 is in its usual ‘edge detect’ mode, it recog- 
nizes only transitions on the interrupt lines. Thus, an interrupt from a 
peripheral chip can cause only a single processor interrupt, no matter 
how long it remains active. Jigour has described the 8259 device in detail 
in “Using the 8259A Programmable Interrupt Controller,’ Intel Applica- 
tion Note AP-59, Intel Corporation, Santa Clara, CA, 1979. 

The special problem with the output interrupt is that it may occur 
when no data is available. It cannot be ignored or it will assert itself 
indefinitely, creating an endless loop. Part of the solution is simply to 
clear the 8259 PIC interrupt by sending the device an EOI command. 

However, this still leaves the 8255 interrupt active, thus blocking 
input interrupts since they are tied to the same 8259 input. The program 
must therefore also disable the PPI’s output interrupt. This would not 
be necessary if the two 8255 interrupt outputs were tied to different 8259 
inputs. The output interrupt could then remain active without affecting 
the system. As noted earlier, it would not be recognized again in the 
8259’s edge detect mode. 

But now a new problem arises when output data becomes available. 
That is, since the interrupt has been cleared in the 8259 and disabled in 
the 8255, it obviously cannot inform the system that the 8255 PPI is 
ready to transmit. The solution is a flag that indicates (with a 0 value) 
that the output interrupt has occurred without being serviced. We call 
this flag Output Interrupt Expected (OIE). 

The initialization routine clears OIE and disables the PPI’s output 
interrupt (since the output device starts out ready for data). The output 
service routine does the same thing when an output interrupt occurs that 
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cannot be serviced (no data is available). It also sets OIE and re-enables 
the PPI’s output interrupt after sending data to the 8255 PPI (to allow 
for a possible non-interrupt-driven entry). Now the output routine 
OUTCH can check OIE to determine whether the output interrupt has 
already occurred (0 indicates it has, FF hex that it has not). If no output 
interrupt is expected, OUTCH simply sends the data immediately. 

Unserviceable interrupts occur only with output devices, since input 
devices always have data ready to transfer when they request service. 
Thus, output devices cause more initialization and sequencing problems 
in interrupt-driven systems than do input devices. 


Entry conditions 

1. INCH: none 

2. INST: none 

3. OUTCH: character to transmit in register AL 
4. OUTST: none 

5. INIT: none 


Exit conditions 

1. INCH: character in register AL 

2. INST: Carry = 0if input buffer is empty, 1 if it is full. 

3. OUTCH: none 

4. OUTST: Carry = 0 if output buffer is empty, 1 if it is full. 
5. INIT: none 


Registers used 

1. INCH: AL,F 

2. INST: AL, F 

3. OUTCH: AL, DX, F 
4. OUTST: AL, F 

5. INIT: AL, BX, DX 
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Execution time 
1. INCH: 96 cycles if a character is available 
2. INST: 20 cycles 


3. OUTCH: 149 cycles if the output buffer is not full and an output 
interrupt is expected; 91 additional cycles to send the data to the 8255 
PPI if no output interrupt is expected. 


4. OUTST: 20 cycles 
5. INIT: 221 cycles 


6. IOSRVC: 159 cycles to service an input interrupt, 172 cycles to 
service an output interrupt if no data is available, 235 cycles to service 
an output interrupt if the output buffer is full. These times do not 
include the 8086’s interrupt response time (51 cycles). 


Program size 206 bytes 


Data memory required 5 bytes anywhere in RAM for the received 
data (address RECDAT), receive data flag (address RECDF), transmit 
data (address TRNDAT), transmit data flag (address TRNDF), and 
output interrupt expected flag (address OIE). 


Title Simple interrupt input and output using an 8255 
PPI and single character buffers 

Name: PINTIO 

Purpose: This program consists of 5 subroutines that 


perform interrupt driven input and output using 
an 8255 PPI. It also includes an. I/0 interrupt 
service routine. 


INCH 
Read a character. 
INST 
Determine input status (whether input 
buffer is empty). 
OUTCH 
Write a character. 
OUTST 
Determine output status (whether output 
buffer is full). 
INIT 
Initialize 8255 PPI and interrupt systen. 
IOSRVC 
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Entry: 


Exit: 


Registers Used: 


Time: 


Size: 


Respond to 8255 PPI I/0 interrupts 


INCH 
No parameters. 
INST 
No parameters. 
OUTCH 
Register AL = character to transmit 
OUTST 
No parameters. 
INIT 
‘No parameters. 


INCH 
Register AL = character. 
INST 
Carry = 0 if input buffer is empty, 
1 if character is available. 
OUTCH 
No parameters 
OUTST 
Carry = 0 if output buffer is 
empty, 1 if it is full. 
INIT 
No parameters. 


INCH 

AL,F 
INST 

AL,F 
OUTCH 

AL,F 
OUTST 

AL,F 
INIT 

AL,BX,DX 


INCH 

96 cycles if a character is available 
INST 

20 cycles 


~OUTCH 


149 cycles if output buffer is not full and 
output interrupt is expected 
OUTST 
20 cycles 
INIT 
221 cycles 
IOSRVC 
159 cycles to service an input interrupt, 
235 cycles to service an output interrupt 
if the output buffer is full, 172 cycles 
to service an output interrupt if no data 
is available. 


Program 206 bytes 
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; Data 5 bytes 


a 


, 
7ESTABLISH SEGMENT ADDRESS FOR USE IN INTERRUPT VECTORS 


a 

CSEG EQU OF81H zARBITRARY BASE ADDRESS OF CODE SEGMENT 
7USUALLY ESTABLISHED IN A SEGMENT 
7 STATEMENT NOT SHOWN HERE 


, 

7 INTERRUPT VECTOR 

; 

PRLLIV EQU OO3CH ;PARALLEL 1/0 INTERRUPT VECTOR 


a 

78255 PPI EQUATES 

; 8255 PPI IS PROGRAMMED FOR 

; BOTH PORTS IN MODE 1 (STROBED INPUT AND OUTPUT) 
7 PORT A INPUT 

7, PORT B OUTPUT 

7 PORT C HANDSHAKE SIGNALS 

zARBITRARY 8255 PPI PORT ADDRESSES 


av 

PPIA EQU OFFOOH 7PORT A DATA 
PPIB EQU OFFO1H 7PORT B DATA 
PPIC EQU OFFO2H 7PORT C DATA 
PPICTRL EQU OFFO3H 7CONTROL PORT 


7 
78255 PPI CONTROL BYTES 


o 

OPMODE EQU 10110100B 7CONTROL BYTE TO OPERATE BOTH PORTS IN 
7 MODE 1, PORT A INPUT, PORT B OUTPUT 

PAIE EQU 00001001B 7ENABLE A INTERRUPT - SET BIT 4 OF C 

PAID EQU 000010008 7DISABLE A INTERRUPT - CLEAR BIT 4 OF C 

PBIE EQU 000001018 7ENABLE B INTERRUPT - SET BIT 2 OF C 

PBID EQU 00000100B 7DISABLE B INTERRUPT - CLEAR BIT 2 OF C 


a 

78259 PROGRAMMABLE INTERRUPT CONTROLLER (PIC) EQUATES. 
7 8259 PIC IS PROGRAMMED FOR 

7 SINGLE DEVICE CRATHER THAN MULTIPLE 8259'S) 
7, FULLY NESTED MODE 

7 ALL INTERRUPTS ENABLED 

7 INTERRUPT LEVELS 8-15 

;ARBITRARY 8259 PIC PORT ADDRESSES 

a 

PICO EQU 20H 7PIC PORT 1 
PIC1 EQU 21H ;PIC PORT 2 


78259 INITIALIZATION COMMAND BYTES ICW1, ICW2, AND ICW4 (NO ICW3 
7 NEEDED IN SINGLE 8259 SYSTEMS) 


Icw1 EQU 00010011B 7BIT O = 1 CICW4 NEEDED IN 8086 SYSTEMS) 
7BIT 1 = 1 (SINGLE 8259) 
7BIT 2 = O (NOT USED WITH 8086/8088) 
7BIT 3 = O (EDGE DETECT) 
,BIT 4 = 1 (FIXED) 


7BITS 5,6,7 = 000 (NOT USED IN 8086/88) 
Icw2 EQU 000010008 7BITS 7-3 = 00001 (5 MSB'S OF SOURCE 


ICW4 


IMASK 
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7 IDENTIFICATION CODE) 
7BITS 2-0 = 000 (NOT USED) 

EQU 00001001B 7BIT 0 = 1 (8086/88 SYSTEM) 
7BIT 1 = O (NO AUTOMATIC END OF 
7 INTERRUPT) 
7BIT 2 = O (DON'T CARE) 
7BIT 3 1 (BUFFERED DATA BUS) 
7BIT 4 O (NO CASCADING) 
7BITS 7-5 = 000 (NOT USED) 

EQU 00111100B 7MASK OUT LEVELS 2 THROUGH 5 


78259 OPERATING COMMAND BYTE 


EOI 


EQU 001000008 7END OF INTERRUPT COMMAND BYTE 


7 
7READ A CHARACTER FROM INPUT BUFFER 


7 
INCH: 


CALL INST 7GET INPUT STATUS 
JNC INCH 7WAIT IF NO CHARACTER AVAILABLE 
PUSHF 7 SAVE CURRENT INTERRUPT STATUS 
CLI 7DISABLE INTERRUPTS WHILE CHANGING 

7 SOFTWARE FLAG 
MOV BYTE PTR CRECDFI,0 7 INDICATE INPUT BUFFER EMPTY 
MOV AL,CRECDAT] 7GET CHARACTER FROM INPUT BUFFER 
POPF 7RESTORE PREVIOUS INTERRUPT STATUS 
RET 


7 
7DETERMINE INPUT STATUS (CARRY = 1 IF DATA AVAILABLE, O IF NOT) 


ao 
INST: 


MOV AL,CRECDF] 7GET DATA READY FLAG 
SHR AL,1 7SET CARRY FROM DATA READY FLAG 

7 CARRY = 1 IF CHARACTER AVAILABLE 
RET 


, 
7WRITE A CHARACTER INTO OUTPUT BUFFER 


OUTCH: 


WAITOC: 


PUSH AX 7 SAVE CHARACTER TO WRITE 


7 
7WAIT FOR OUTPUT BUFFER TO EMPTY, STORE NEXT CHARACTER 


CALL OUTST 7GET OUTPUT STATUS 

JC WAITOC 7WAIT IF OUTPUT BUFFER FULL 

POP AX 7RESTORE CHARACTER TO WRITE 

PUSHF 7 SAVE CURRENT INTERRUPT STATUS 

CLI 7DISABLE INTERRUPTS WHILE WORKING WITH 
7 SOFTWARE FLAGS 

MOV CTRNDATI,AL 7STORE CHARACTER IN OUTPUT BUFFER 

MOV BYTE PTR CTRNDFIJ,OFFH 7INDICATE OUTPUT BUFFER FULL 

MOV AL,COIE] 

TEST AL,AL 7TEST OUTPUT INTERRUPT EXPECTED FLAG 


JNZ EXITOT 7EXIT IF OUTPUT INTERRUPT EXPECTED 
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CALL OUTDAT 7SEND CHARACTER IMMEDIATELY IF 
7 NO OUTPUT INTERRUPT EXPECTED 
EXITOT: 
POPF 7RESTORE PREVIOUS INTERRUPT STATUS 
RET 


, 
;DETERMINE OUTPUT STATUS (CARRY = 1 IF OUTPUT BUFFER FULL) 


a 

OUTST: 
MOV AL,CTRNDFJ 7GET TRANSMIT FLAG 
SHR AL,1 7 SET CARRY FROM TRANSMIT FLAG 
RET 7CARRY = 1 IF BUFFER FULL 


, 

zINITIALIZE INTERRUPT SYSTEM AND 8255 PPI 
, 

INIT: 


7DISABLE INTERRUPTS DURING INITIALIZATION BUT SAVE 
7 PREVIOUS STATE OF INTERRUPT FLAG 


PUSHF 7 SAVE CURRENT INTERRUPT FLAG 
CLI 7DISABLE INTERRUPTS DURING 
7 INITIALIZATION 


7INITIALIZE SOFTWARE FLAGS 


a 

SUB AL,AL 

MOV CRECDFIJ,AL 7NO INPUT DATA AVAILABLE 

MOV CTRNDFI,AL ,OUTPUT BUFFER EMPTY 

MOV COIE],AL 7 INDICATE NO OUTPUT INTERRUPT NEEDED 


7 8255 READY INITIALLY 


a 
7 INITIALIZE INTERRUPT VECTOR 


A 
PUSH DS 7;SAVE CURRENT DATA SEGMENT 
SUB AX ,AX ;ACCESS INTERRUPT VECTOR IN SEGMENT 
; O 
MOV DS ,AX 
MOV AX,OFFSET IOSRVC ;GET OFFSET FOR SERVICE ROUTINE 
MOV BX,PRLLIV ;GET INTERRUPT VECTOR LOCATION 
MOV CBX] ,AX ;LOAD OFFSET INTO INTERRUPT VECTOR 
MOV AX,CSEG ;GET CODE SEGMENT NUMBER 
MOV C[BX+2],AX 7;LOAD CODE SEGMENT NUMBER INTO 
7 INTERRUPT VECTOR 
POP DS ;RESTORE CURRENT DATA SEGMENT 


, 
7INITIALIZE 8259 INTERRUPT CONTROLLER 


a 

MOV DX,PICO 7SEND FIRST COMMAND BYTE TO PIC PORT 0 
MOV AL,ICW1 

OUT DX,AL 


MOV DX,PIC1 7SEND SECOND COMMAND BYTE TO PIC PORT 1 
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MOV 
OUT 
MOV 
OUT 
MOV 
OUT 


AL,ICW2 

DX,AL 

AL,ICW4 7SEND FINAL COMMAND BYTE TO PIC PORT 1 
DX,AL 

AL, IMASK 7MASK INTERRUPT LEVELS 2 THROUGH 5 
DX,AL 


, 
7INITIALIZE 8255 PPI 


MOV 

MOV 

OUT 

, 

7 ENABLE 


a 

MOV 
OUT 
MOV 
OUT 


POPF 


RET 


AL,OPMODE 7BOTH PORTS IN STROBED I/0 MODE (1) 
DX,PPICTRL 7 PORT A INPUT, PORT B OUTPUT 
DX,AL 


8255 PPI INPUT INTERRUPT, DISABLE OUTPUT INTERRUPT 


AL,PAIE 7ENABLE PORT A CINPUT) INTERRUPT 
DX,AL 

AL,PBID ,DISABLE PORT B COUTPUT) INTERRUPT 
DX,AL 7 CSINCE PPI SURELY STARTS OUT READY 


7 READY TO TRANSMIT) 

7RESTORE FLAGS (CREENABLES INTERRUPTS 
7 IF THEY WERE ENABLED WHEN INIT WAS 
7; CALLED) 


, 
7PARALLEL I/0 INTERRUPT HANDLER 


a 
IOSRVC: 


, 
IDENTIFY INTERRUPT SOURCE BY EXAMINING STATUS/CONTROL PORT 


7 (©8255 


PUSH 
PUSH 
MOV 
IN 
TEST 
JNZ 
TEST 
JZ 


PORT C) 

AX 7 SAVE REGISTERS 

DX 

DX,PPIC 7POINT TO STATUS/CONTROL PORT 
AL,DX 7READ STATUS/CONTROL PORT 
AL,00000001B ,BIT O = 1 IF WRITE INTERRUPT 
WRHDLR 7JUMP IF WRITE INTERRUPT 
AL,00001000B 7BIT 3 = 1 IF READ INTERRUPT 
IOEXIT 7EXIT IF NEITHER ONE OCCURRED 


7THIS TEST PROTECTS AGAINST FALSE 
7 INTERRUPTS 


7 INPUT CREAD) INTERRUPT HANDLER 


a 
RDHDLR: 


, 
7READ DATA AND SAVE IT IN INPUT BUFFER 
7INDICATE INPUT DATA AVAILABLE 


a 
MOV 
IN 
MOV 
MOV 
JMP 


DX,PPIA 7READ DATA FROM 8255 PPI PORT A 
AL,DX 
CRECDATI,AL 7 SAVE DATA IN INPUT BUFFER 


BYTE PTR CRECDF],OFFH 7 INDICATE CHARACTER AVAILABLE 
IOEXIT 7EXIT INTERRUPT SERVICE ROUTINE 
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, 
7OUTPUT CWRITE) INTERRUPT HANDLER 


wv 
WRHDLR: 
7CHECK IF DATA IS AVAILABLE 
7I1F SO, SEND IT TO 8255 PPI 
MOV AL,CTRNDFJ 7 TEST DATA AVAILABLE FLAG 
TEST AL,AL 
JZ NODATA 7JUMP IF NO DATA TO TRANSMIT 
CALL OUTDAT 7SEND DATA TO 8255 PPI 
JMP IOEXIT 7EXIT INTERRUPT SERVICE ROUTINE 


a 

71F AN OUTPUT INTERRUPT OCCURS WHEN NO DATA IS AVAILABLE, 

7 WE MUST CLEAR IT CIN THE 8259) TO AVOID AN ENDLESS LOOP. FURTHERMORE, 
7, WE MUST DISABLE IT CIN THE 8255) TO UNBLOCK INPUT INTERRUPTS. 

, LATER, WHEN A CHARACTER BECOMES AVAILABLE, WE NEED TO KNOW THAT AN 

, OUTPUT INTERRUPT HAS OCCURRED WITHOUT BEING SERVICED. THE KEY 

7 TO DOING THIS IS THE OUTPUT INTERRUPT EXPECTED FLAG OIE. THIS FLAG IS 
7 CLEARED WHEN AN OUTPUT INTERRUPT HAS OCCURRED BUT HAS NOT BEEN 

, SERVICED. IT IS ALSO CLEARED INITIALLY SINCE THE 8255 PPI STARTS 

, OUT READY. OIE IS SET WHENEVER DATA IS ACTUALLY SENT TO THE PPI. 

7 THUS THE OUTPUT ROUTINE OUTCH CAN CHECK OIE TO DETERMINE WHETHER 

7 TO SEND THE DATA IMMEDIATELY OR WAIT FOR AN OUTPUT INTERRUPT. 

7 THE PROBLEM IS THAT AN OUTPUT DEVICE MAY REQUEST SERVICE BEFORE 

7 THE COMPUTER HAS ANYTHING TO SEND CUNLIKE AN INPUT DEVICE THAT 

7 HAS DATA WHEN IT REQUESTS SERVICE). THE OIE FLAG SOLVES THE 

7 PROBLEM OF AN UNSERVICED OUTPUT INTERRUPT ASSERTING ITSELF 

, REPEATEDLY, WHILE STILL ENSURING THE RECOGNITION OF OUTPUT 

7 INTERRUPTS. 

, 
N 


ODATA: 
MOV BYTE PTR COIEI,0 7D0 NOT EXPECT AN INTERRUPT 
MOV DX,PPICTRL 7DISABLE 8255 PPI OUTPUT INTERRUPT 
MOV AL,PBID 
OUT DX,AL 
IOEXIT: 
MOV DX,PICO 7CLEAR 8259 INTERRUPT 
MOV AL,EOI 
OUT DX,AL 
POP DX 7RESTORE REGISTERS 
POP AX 
IRET 


PRREKEKKEKEKEREKEKEEKEEKKKKKKKKKR KKK 
7ROUTINE: OUTDAT 

PURPOSE: SEND CHARACTER TO 8255 PPI 
7ENTRY: TRNDAT = CHARACTER TO SEND 
7EXIT: NONE 

7REGISTERS USED: AL,DX 
ZRKKKKKKKKEKKEKEKEKEKKKEEKKKEKKKKKKKKKKAK KS 


OUTDAT: 
MOV DX,PPIB 
MOV AL,CTRNDAT] 7GET DATA FROM OUTPUT BUFFER 
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OUT DX,AL 7SEND DATA TO 8255 PPI 

MOV BYTE PTR CTRNDFJ,0 ; INDICATE OUTPUT BUFFER EMPTY 

MOV BYTE PTR COIE],OFFH ; INDICATE OUTPUT INTERRUPT EXPECTED 
>, OIE = FF HEX 

MOV DX,PPICTRL 7ENABLE 8255 PPI OUTPUT INTERRUPT 

MOV AL,PBIE > CIN CASE IT WAS DISABLED EARLIER) 

OUT DX,AL 

RET 


7 DATA SECTION 


RECDAT DB ? 
RECDF DB ? 
TRNDAT DB ? 
TRNDF DB ? 
OIE DB ? 

7 

; SAMPLE EXECUTION: 
> CHARACTER EQUATES 
7 

ESCAPE EQU 1BH 
TESTCH EQU "A! 
SC9B: 


CALL INIT 
STI 


7RECEIVE DATA 

7RECEIVE DATA FLAG (0 = NO DATA, 

7 FF = DATA) 

7 TRANSMIT DATA 

7 TRANSMIT DATA FLAG 

; (0 = BUFFER EMPTY, FF = BUFFER FULL) 
OUTPUT INTERRUPT EXPECTED 

7 ( O = INTERRUPT OCCURRED WITHOUT 

7 BEING SERVICED, FF = INTERRUPT 

7 SERVICED) 


7ASCII ESCAPE CHARACTER 
7 TEST CHARACTER = A 


,INITIALIZE 8255 PPI, INTERRUPT SYSTEM 
7ENABLE INTERRUPTS 


a 
7 SIMPLE EXAMPLE - READ AND ECHO CHARACTERS 
7 UNTIL AN ESC IS RECEIVED 


s 
a 


7READ CHARACTER 

7 SAVE CHARACTER 

7ECHO CHARACTER 

7RESTORE CHARACTER 

71S CHARACTER AN ESCAPE? 
7 STAY IN LOOP IF NOT 


7 OUTPUT "A" TO CONSOLE CONTINUOUSLY BUT ALSO LOOK AT 
7 INPUT SIDE, READING AND ECHOING INPUT CHARACTERS. 


LOOP: 
CALL INCH 
PUSH AX 
CALL OUTCH 
POP AX 
CMP AL,ESCAPE 
JNE LOOP 
a 
7AN ASYNCHRONOUS EXAMPLE 
, 
ASYNLP: 


7OUTPUT AN "A" IF OUTPUT IS NOT BUSY 


CALL OUTST 

Jc ASYNLP 
MOV AL,TESTCH 
CALL OUTCH 


7 
7CHECK INPUT PORT 


71S OUTPUT BUSY? 
7BRANCH CWAIT) IF IT IS 


OUTPUT TEST CHARACTER 


354 


DONE: 


Assembly language subroutines for the 8086 


7ECHO CHARACTER IF ONE IS AVAILABLE 
7EXIT ON ESCAPE CHARACTER 


7 
CALL 
JNC 
CALL 
CMP 
JE 
CALL 
JMP 


JMP 


END 


INST 71S INPUT DATA AVAILABLE? 

ASYNLP 7BRANCH IF NOT (SEND ANOTHER "A") 
INCH 7GET CHARACTER 

AL,ESCAPE 71S IT AN ESCAPE? 

DONE 7BRANCH IF IT IS 

OUTCH 7ELSE ECHO CHARACTER 

ASYNLP 7AND CONTINUE 

SC9B 7REPEAT TEST 
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9C_ Buffered interrupt-driven I/O using an 8250 ACE 
(SINTB) 


Performs interrupt-driven input and output using an 8250 ACE (Async- 
hronous Communications Element or UART) and multiple-character 
buffers. Consists of the following subroutines: 


1. INCH reads a character from the input buffer. 

2. INST determines whether the input buffer is empty. 
3. OUTCH writes a character into the output buffer. 

4. OUTST determines whether the output buffer is full. 


5. INIT initializes the 8250 ACE, the buffers, and the interrupt system 
(vector and controller). 


6. IOSRVC (the interrupt service routine) identifies and services the 
interrupt. In response to the input interrupt, it reads a character from 
the 8250 ACE into the input buffer. In response to the output interrupt, 
it writes a character from the output buffer into the 8250 ACE. 


Procedure 


1. INCH waits for a character to become available, gets the character 
from the head of the input buffer, moves the head of the buffer up one 
position, and decreases the input buffer counter by 1. 


2. INST clears Carry if the input buffer counter is 0 and sets it 
otherwise. 


3. OUTCH waits until there is space in the output buffer (i.e. until the 
output buffer is not full), stores the character at the tail of the buffer, 
moves the tail up one position, and increases the output buffer counter 
by 1. 


4. OUTST sets Carry if the output buffer counter is equal to the 
buffer’s length (i.e. if the output buffer is full) and clears Carry 
otherwise. 


5. INIT first initializes the 8250 ACE by placing values in its divisor 
latch and line control register. Next it clears the buffer counters and sets 
all buffer pointers to the buffers’ base addresses. It then sets up the 
interrupt vector and initializes the 8259 interrupt controller. See Sub- 
routine 8E for more details about initializing 8250 ACEs. INIT also 
clears the output interrupt expected flag, indicating that the ACE is 
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initially ready to transmit data, although it cannot cause an output 
interrupt. 


6. IOSRVC examines the ACE’s interrupt identification vector to 
determine whether the interrupt is from the transmitter (bits 0-2 = 
010). If not, it assumes the interrupt is from the receiver. It then reads 
the data from the 8250 ACE and checks whether the input buffer is full. 
If it is, IOSRVC simply discards the character. If not, IOSRVC adds 1 
to the input buffer counter, stores the character at the tail of the input 
buffer, and moves the tail of the buffer up one position. 

If the output interrupt occurred, IOSRVC determines whether data is 
available. If it is, IOSRVC takes the character from the head of the 
output buffer and sends it to the 8250 ACE. It then moves the head up 
one position and subtracts 1 from the output buffer counter. If data is 
not available, the program simply clears the output interrupt (in the 
8259 interrupt controller). Note that reading the interrupt identification 
register in an 8250 ACE is sufficient by itself to clear a transmitter 
interrupt. Thus clearing the 8259 interrupt removes all traces of the 
transmitter interrupt from the system, allowing the recognition of later 
receiver or transmitter interrupts on the same line. 


The new problem with multiple-character buffers is the management 
of queues. The main program must read the data in the order in which 
the input interrupt service routine receives it. Similarly, the output 
interrupt service routine must send the data in the order in which the 
main program stores it. Thus we have the following requirements for 
handling input: 


1. The main program must know whether the input buffer is empty. 


2. Ifthe input buffer is not empty, the main program must know where 
the oldest character is (i.e. the one that was received first). 


3. The input interrupt service routine must know whether the input 
buffer is full. 


4. If the input buffer is not full, the input interrupt service routine 
must know where the next empty place is (i.e. where it should store the 
new character). 

The output interrupt service routine and the main program have 
similar requirements for the output buffer, although the roles of sender 


and receiver are reversed. 


We meet requirements 1 and 3 by maintaining a counter ICNT. INIT 
initializes ICNT to 0, the interrupt service routine adds 1 to it whenever 
it receives a character (assuming the buffer is not full), and the main 
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program subtracts 1 from it whenever it removes a character from the 
buffer. Thus the main program can determine whether the input buffer 
is empty by checking if ICNT is 0. Similarly, the interrupt service 
routine can determine whether the input buffer is full by checking if 
ICNT is equal to the size of the buffer. 

We meet requirements 2 and 4 by maintaining two pointers, IHEAD 
and ITAIL, defined as follows: 


1. ITAIL is the address of the next empty location in the input buffer. 
2. IHEAD is the address of the oldest character in the input buffer. 


INIT initializes IHEAD and ITAIL to the base address of the input 
buffer. Whenever the interrupt service routine receives a character, it 
puts it in the buffer at ITAIL and moves ITAIL up one position 
(assuming that the buffer is not full). Whenever the main program reads 
a character, it removes it from the buffer at IHEAD and moves IHEAD 
up one position. Thus IHEAD ‘chases’ ITAIL across the buffer with the 
service routine entering characters at one end (the tail) while the main 
program removes them from the other end (the head). 

The occupied part of the buffer thus could start and end anywhere. If 
either IHEAD or ITAIL reaches the physical end of the buffer, we 
simply set it back to the base address. Thus we allow wraparound on the 
buffer; i.e. the occupied part of the buffer could start near the end (say, 
at byte #195 of a 200-byte buffer) and continue back past the beginning 
(say, to byte #10). Then IHEAD would be BASE+194, ITAIL would 
be BASE+9, and the buffer would contain 15 characters occupying 
addresses BASE+194 through BASE+199 and BASE through 
BASE+8. 


Entry conditions 

1. INCH: none 

2. INST: none 

3. OUTCH: character to transmit in register AL. 
4. OUTST: none 

5. INIT: none 
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Exit conditions 

1. INCH: character in register AL. 

2. INST: Carry = 0 if input buffer is empty, 1 if a character is available 
3. OUTCH: none 

4. OUTST: Carry = 0if output buffer is not full, 1 if it is full 

5. INIT: none 


Registers used 

1. INCH: AL, BX, F 
2. INST: AL, F 

3. OUTCH: AL, BX, DX, F 
4. OUTST:F 

5. INIT: AL, BX, DX 


Execution time 
1. INCH: approximately 180 cycles if a character is available 
2. INST: 27 cycles 


3. OUTCH: approximately 210 cycles if the output buffer is not full 
and an output interrupt is expected. Approximately an additional 149 
cycles if no output interrupt is expected. 


4. OUTST: 51 cycles 
5. INIT: 515 cycles 


6. IOSRVC: 322 cycles to service an input interrupt if a character is 
ready and the input buffer is not full, 342 cycles to service an output 
interrupt if the output buffer is not empty, 187 cycles to service an 
output interrupt if the buffer is empty. These times do not include the 
8086’s interrupt response time (51 cycles). 


Program size 374 bytes 


ws Ne Ne Ne 


we We We Me Me Be Me Be Oe Te Oe ON Ne Ne Be We Me Ne Ne We Me Be Ne Me Ne Ne Ne Ne Ne Ne Ne Ne Ne we Ne Ne Ns Ne No 
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Data memory required 11 bytes anywhere in RAM for the heads and 
tails of the input and output buffers (2 bytes starting at addresses 
IHEAD, ITAIL, OHEAD, and OTAIL, respectively), the number of 
characters in the buffers (2 bytes at addresses ICNT and OCNT), and 
the output interrupt expected flag (address OIE). This does not include 
the actual input and output buffers. The input buffer starts at address 
IBUF and its size is IBSZ; the output buffer starts at address OBUF and 


its size is OBSZ. 


Title 


Name: 


Purpose: 


Entry: 


Exit: 


Simple interrupt input and output using an 8250 
ACE and multiple character buffers. 
SINTB 


This program includes 5 subroutines that 
perform interrupt driven input and output using 
an 8250 UART. It also contains an I/0 
interrupt service routine and a Loopback test 
routine for the 8250 device. 


INCH 
Read a character. 
INST 
Determine input status (whether input 
buffer is empty). 
OUTCH 
Write a character. 
OUTST 
Determine output status (whether output 
buffer is full). 
INIT 
Initialize UART and interrupt system 
IOSRVC 
Respond to 8250 ACE I/0 interrupts 


INCH 
No parameters. 
INST 
No parameters. 
OUTCH 
Register AL = character to transmit 
OUTST 
No parameters. 
INIT 
No parameters. 


INCH 
Register AL = character received 
INST 
Carry = 0 if input buffer is empty, 
1 if character is available. 
OUTCH 
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OUTST 
Carry = 
1 if 

INIT 


INCH 
AL,BX,F 
INST 
AL,F 
OUTCH 
AL,BX,DX,F 
OUTST 
F 
INIT 
AL,BX,DX 


Registers Used: 


Time: INCH 
INST 

2? cycles 
OUTCH 


OUTST 

51 cycles 
INIT 

515 cycles 
IOSRVC 


a character 


Size: Program 


Data 


Na Ne Ne Noe Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne We We We Ns Ne Ne Ne Ns Ws We Ve Ve Ve VWs We We Ws Vs We Ws We VWs We We 


7 
z,ESTABLISH SEGMENT ADDRESS FOR USE IN 


a 
CSEG EQU OF81H 


78250 ACE (CUART) EQUATES 
, 8250 IS PROGRAMMED FOR 
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No parameters 


O if output buffer is empty, 
it is full. 


No parameters. 


180 cycles if a character is available 


210 cycles if output buffer is empty and 
output interrupt is expected 


322 cycles to service an input interrupt if 


is ready and the input buffer 


is not full, 342 cycles to service an output 
interrupt if the output buffer is not empty, 
187 cycles to service an output interrupt if 
the output buffer is empty. 
do not include the 8086's interrupt response 
time (51 cycles). 


These times 


374 bytes 
11 bytes 


INTERRUPT VECTORS 


z ARBITRARY BASE ADDRESS OF CODE 
7 SEGMENT - USUALLY ESTABLISHED 
7 IN A SEGMENT STATEMENT NOT 

7 SHOWN HERE 


, 1200 BAUD ASSUMING A 1.8432 MHZ OSCILLATOR INPUT (AS ON IBM PC) 


; 8-BIT CHARACTERS 
, 2 STOP BITS 
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7 NO PARITY 
ARBITRARY 8250 ACE PORT ADDRESSES (TAKEN FROM IBM PC) 


a 

ACEBASE EQU 3F8H 7ACE BASE ADDRESS 

ACERBR- EQU 3F8H 7ACE RECEIVER BUFFER REGISTER 
ACETHR EQU 3F8H 7ACE TRANSMITTER HOLDING REGISTER 
ACEIER EQU 3F9H 7ACE INTERRUPT ENABLE REGISTER 
ACEIIR EQU 3 FAH 7ACE INTERRUPT IDENTIFICATION REGISTER 
ACELCR EQU 3FBH 7ACE LINE CONTROL REGISTER 

ACEMCR’ EQU 3FCH 7ACE MODEM CONTROL REGISTER 
ACELSR- EQU 3FDH 7ACE LINE STATUS REGISTER 

ACEMSR- EQU 3FEH 7ACE MODEM STATUS REGISTER 

ACESCR’ EQU 3FFH 7 ACE SCRATCHPAD REGISTER 

ACEDLL EQU 3F8H 7ACE DIVISOR LATCH (LSB) 

ACEDLM EQU 3F9H 7ACE DIVISOR LATCH (MSB) 


7 INTERRUPT VECTOR 
ASYNIV EQU 0030H 7ASYNCHRONOUS I/0 INTERRUPT VECTOR 


78250 LINE CONTROL INSTRUCTION 
LCMODE EQU 00000111B 7BITS 1,0 = 11 (8 BIT WORD LENGTH) 
;BIT 2 = 1 (2 STOP BITS) 
7BIT 3 O (PARITY DISABLED) 
7BITS 5,4 = 00 (DON'T CARE) 
7BIT 6 = O (DISABLE BREAK) 
7BITS 7 = O CPOINT TO DATA REGISTER) 


78250 MODEM CONTROL INSTRUCTION 

MCMODE EQU 00000011B 7BIT 0 1 (SET DATA TERMINAL READY) 
;BIT 1 1 (SET REQUEST TO SEND) 
7BITS 3,2 = 00 (DON'T CARE) 
7BIT 4 = O (DISABLE INTERNAL LOOPBACK) 
7BITS 7,6,5 = 000 (DON'T CARE) 


78250 INTERRUPT ENABLE INSTRUCTION 
INTCMD EQU 00000011B 7BIT 0 = 1 CENABLE RECEIVE DATA 
7 INTERRUPT) 
7BIT 1 = 1 CENABLE TRANSMITTER EMPTY 
7 INTERRUPT) 
7BIT 2 = O (DISABLE LINE STATUS 
7 INTERRUPT) 
7BIT 3 = 0 (DISABLE MODEM STATUS 
7 INTERRUPT) 
,BITS 4-7 = 0 (DON'T CARE) 


78250 DIVISOR LATCH ACCESS INSTRUCTION 
DLADDR EQU 100000008 7BIT 7 = 1 (POINT TO DIVISOR LATCH) 


78250 DIVISOR LATCH VALUE (96 FOR 1200 BAUD ASSUMING A 1.8432 MHZ 
7 OSCILLATOR INPUT 
DIVLS EQU 96 7LESS SIGNIFICANT BYTE OF DIVISOR 
OUTPUT FREQUENCY EQUALS THE INPUT 
7 FREQUENCY/(BAUD DIVISOR X 16) 
7 = 1.8432 MHZ/(96 X 16) = 1200 BAUD 
DIVMS EQU 0 7MORE SIGNIFICANT BYTE OF DIVISOR 


78259 PROGRAMMABLE INTERRUPT CONTROLLER (PIC) EQUATES 
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8259 PIC IS PROGRAMMED FOR 

SINGLE DEVICE CRATHER THAN MULTIPLE 8259'S) 
FULLY NESTED MODE 

ALL INTERRUPTS ENABLED 
7 INTERRUPT LEVELS 8-15 
7ARBITRARY 8259 PIC PORT ADDRESSES 
PICO EQU 20H 7PIC PORT 1 
PIC1 EQU 21H 7PIC PORT 2 


os “ee “se Ne NU 


78259 INITIALIZATION COMMAND BYTES ICW1, ICW2, AND ICW4 (NO ICW3 
; NEEDED IN SINGLE 8259 SYSTEMS) 


ICw1 EQU 00010011B 7BIT O = 1 CICW4 NEEDED IN 8086 SYSTEMS) 
7BIT 1 = 1 (SINGLE 8259) 
7BIT 2 = O (NOT USED WITH 8086/8088) 
,BIT 3 = O (EDGE DETECT) 
7BIT 4 = 1 (FIXED) 
7BITS 5,6,7 = 000 (NOT USED IN 8086/88) 
ICwW2 EQU 000010008 7BITS 7-3 = 00001 (5 MSB'S OF SOURCE 


7 IDENTIFICATION CODE) 
7BITS 2-0 = O00 (NOT USED) 

ICW4 EQU 000010018 7BIT 0 = 1 (8086/88 SYSTEM) 
7BIT 1 = O (NO AUTOMATIC END OF 
7 INTERRUPT) 
7BIT 2 = O (DON'T CARE) 
;BIT 3 = 1 (BUFFERED DATA BUS) 
;BIT 4 O (NO CASCADING) 
,BITS 7-5 = 000 (NOT USED) 


78259 OPERATING COMMAND BYTE 


EOI EQU 001000008 7END OF INTERRUPT COMMAND BYTE 
; READ A CHARACTER FROM INPUT BUFFER 
7 
INCH: 
CALL INST 7GET INPUT STATUS 
JNC INCH ;WAIT IF NO CHARACTER AVAILABLE 
PUSHF 7SAVE CURRENT INTERRUPT STATUS 
CLI ;DISABLE INTERRUPTS WHILE CHANGING 
7; SOFTWARE FLAG 
DEC BYTE PTR CICNTJ] ;REDUCE INPUT BUFFER COUNT BY 1 
MOV BX, CIHEAD] 7GET CHARACTER FROM HEAD OF INPUT BUFFER 
MOV AL, CBX] 
CALL INCIPTR 7;MOVE HEAD POINTER UP 1 WITH WRAPAROUND 
MOV CIHEAD] ,BX 
POPF ;RESTORE PREVIOUS INTERRUPT STATUS 
RET 
a 
; DETERMINE INPUT STATUS (CARRY = 1 IF DATA AVAILABLE, O IF NOT) 
, 
INST: 
MOV AL,CICNTI 7TEST INPUT BUFFER COUNT 
TEST AL,AL ;NOTE THAT TEST ALWAYS CLEARS CARRY 
JZ EXINST ;BRANCH CEXIT) IF BUFFER EMPTY 
STC 7SET CARRY TO INDICATE DATA AVAILABLE 
EXINST: 


RET 
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aw 
; WRITE A CHARACTER INTO OUTPUT BUFFER 

; SEND IT ON TO ACE IF NO OUTPUT INTERRUPT EXPECTED 
7 

OUTCH: 


7WAIT UNTIL OUTPUT BUFFER NOT FULL, THEN STORE NEXT CHARACTER 
WAITOC: 


CALL OUTST 7GET OUTPUT STATUS 

JC WAITOC 7WAIT IF OUTPUT BUFFER FULL 

PUSHF 7SAVE CURRENT INTERRUPT STATUS 

CLI 7DISABLE INTERRUPTS WHILE WORKING 

7 WITH SOFTWARE FLAGS 

INC BYTE PTR COCNT] ;INCREASE OUTPUT BUFFER COUNT BY 1 

MOV BX, COTAIL]I 7POINT AT NEXT EMPTY BYTE IN BUFFER 

MOV CBX1,AL 7STORE CHARACTER AT TAIL OF BUFFER 

CALL INCOPTR 7MOVE TAIL POINTER UP 1 WITH WRAPAROUND 

MOV COTAIL],BX 

MOV AL,COIE] 7TEST OUTPUT INTERRUPT EXPECTED FLAG 

TEST AL,AL 

JNZ EXITOC 7BRANCH IF OUTPUT INTERRUPT EXPECTED 

CALL OUTDAT ,OTHERWISE, SEND CHARACTER TO ACE NOW 
EXITOC: POPF sRESTORE PREVIOUS INTERRUPT STATUS 

RET 


. 
a 


; DETERMINE OUTPUT STATUS (CARRY = 1 IF OUTPUT BUFFER FULL) 


a 
OUTST: 
PUSH AX 7SAVE REGISTER AX 
MOV AL,SZOBUF-1 7GET OUTPUT BUFFER SIZE MINUS 1 
CMP AL,COCNTJ 71S OUTPUT BUFFER FULL? 
POP AX 7RESTORE REGISTER AX 
RET 7;CARRY = 1 IF BUFFER FULL, O IF NOT 


7 

,INITIALIZE INTERRUPT SYSTEM AND 8250 ACE 
7 

INIT: 


7 
7DISABLE INTERRUPTS DURING INITIALIZATION BUT SAVE 
; PREVIOUS STATE OF INTERRUPT FLAG 


, 
PUSHF 7 SAVE CURRENT INTERRUPT FLAG 
CLI 7DISABLE INTERRUPTS DURING 

7 INITIALIZATION 


7INITIALIZE 8250 ACE CUART) 


MOV DX,ACEIER 7POINT TO INTERRUPT ENABLE REGISTER 
SUB AL,AL 7RESET INTERRUPT ENABLES 

OUT DX,AL 

JMP $+2 ;DELAY BETWEEN 8250 OPERATIONS 

MOV DX,ACELCR 7POINT TO LINE CONTROL REGISTER 

MOV AL,DLADDR 7ADDRESS DIVISOR LATCH 


OUT DX,AL 
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JMP 
MOV 
MOV 
OUT 
JMP 
MOV 
MOV 
OUT 
JMP 
MOV 
MOV 


OUT 
JMP 
MOV 
IN 

JMP 
MOV 
IN 

JMP 
SHR 
JNC 
MOV 
IN 

JMP 


MOV 


MOV 


OUT 
JMP 
MOV 
MOV 
OUT 
JMP 


$+2 
DX,ACEDLM 
AL,DIVMS 
DX,AL 

$+2 
DX,ACEDLL 
AL,DIVLS 
DX,AL 

$+2 
DX,ACELCR 
AL,LCMODE 


DX,AL 

$+2 
DX,ACEMSR 
AL,DX 

$+2 
DX,ACELSR 
AL,DX 

$+2 

AL,1 
SETINT 
DX,ACERBR 
AL,DX 

$+2 


DX,ACEIER 
AL,INTCMD 
DX,AL 

$+2 
DX,ACEMCR 
AL,MCMODE 
DX,AL 

$+2 


;DELAY BETWEEN 8250 OPERATIONS 
7POINT TO DIVISOR LATCH - MSB 
7SET MSB OF DIVISOR 


;DELAY BETWEEN 8250 OPERATIONS 
7POINT TO DIVISOR LATCH - LSB 
7SET LSB OF DIVISOR 


7DELAY BETWEEN 8250 OPERATIONS 
7POINT TO LINE CONTROL REGISTER 
7;SET ACE FOR 8-BIT WORDS, 2 STOP 
7, BITS, NO PARITY 


;DELAY BETWEEN 8250 OPERATIONS 

7POINT TO MODEM STATUS REGISTER 

7READ TO CLEAR POSSIBLE OLD INTERRUPT 
7DELAY BETWEEN 8250 OPERATIONS 

7POINT TO LINE STATUS REGISTER 

7CLEAR ERROR INDICATORS, CHECK FOR DATA 
;DELAY BETWEEN 8250 OPERATIONS 

7CHECK IF DATA READY 

7JUMP IF NO DATA 

7POINT TO RECEIVER BUFFER REGISTER 
7READ BUFFER TO EMPTY IT FOR SURE 
;DELAY BETWEEN 8250 OPERATIONS 


7POINT TO INTERRUPT ENABLE REGISTER 
7ENABLE RECEIVE, TRANSMIT INTERRUPTS 


;DELAY BETWEEN 8250 OPERATIONS 
7POINT TO MODEM CONTROL REGISTER 
7MODEM CONTROL COMMAND 


;DELAY BETWEEN 8250 OPERATIONS 


a 
7INITIALIZE BUFFER POINTERS AND COUNTERS 
7 INDICATE NO OUTPUT INTERRUPT EXPECTED 


a 

SUB 
MOV 
MOV 
MOV 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


AL,AL 
CICNTI,AL 
COCNTI,AL 
COIE],AL 


BX,OFFSET IBUF 
CIHEADI ,BX 
CITAIL],BX 
BX,OFFSET OBUF 
COHEAD] ,BX 
COTAIL],BX 


7 INPUT BUFFER EMPTY 

OUTPUT BUFFER EMPTY 

7 INDICATE NO OUTPUT INTERRUPT NEEDED 
7 8250 READY TO TRANSMIT INITIALLY 
7MAKE INPUT HEAD AND TAIL POINTERS 

7 POINT TO BASE ADDRESS OF INPUT 

7 BUFFER 

7MAKE OUTPUT HEAD AND TAIL POINTERS 
7 POINT TO BASE ADDRESS OF OUTPUT 


: 
7 INITIALIZE INTERRUPT VECTOR 


a 
PUSH 


SUB 


MOV 


DS 
AX ,AX 


DS ,AX 


7 SAVE CURRENT DATA SEGMENT 

7ACCESS INTERRUPT VECTOR IN SEGMENT 
; 0 

a 
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MOV 
MOV 
MOV 
MOV 
MOV 


POP 


AX,OFFSET IOSRVC 7GET OFFSET FOR SERVICE ROUTINE 


BX ,ASYNIV 7GET INTERRUPT VECTOR LOCATION 
CBX1,AX 7LOAD OFFSET INTO INTERRUPT VECTOR 
AX,CSEG 7GET CODE SEGMENT NUMBER 
CBX+2],AX 7LOAD CODE SEGMENT NUMBER INTO 

7 INTERRUPT VECTOR 
DS 7RESTORE CURRENT DATA SEGMENT 


7 INITIALIZE 8259 INTERRUPT CONTROLLER 


71F THE 8259 WAS PREVIOUSLY INITIALIZED AND YOU WANT TO ENABLE 
7 AN ADDITIONAL INTERRUPT, EXECUTE THE FOLLOWING CODE (SHOWN 
7 ENABLING INTERRUPT 4) 


; 
MOV 
IN 
AND 
OUT 
POPF 
RET 


DX,PIC1 7GET CURRENT INTERRUPT MASKS 
AL,PIC1 

AL,11101111B 7ENABLE INTERRUPT 4 ALSO 
PIC1,AL 


7RESTORE PREVIOUS INTERRUPT STATUS 


a 
7TO INITIALIZE THE 8259 AND ENABLE ALL INTERRUPTS, EXECUTE 
7 THE FOLLOWING CODE 


MOV 
MOV 
OUT 
MOV 
MOV 
OUT 
MOV 
OUT 
POPF 
RET 


DX,PICO 7SEND FIRST COMMAND BYTE TO PIC PORT 0 
AL,ICW1 
DX,AL 
DX,PIC1 7SEND SECOND COMMAND BYTE TO PIC PORT 1 
AL,ICW2 . 
DX,AL 
AL,ICW4 7SEND FINAL COMMAND BYTE TO PIC PORT 1 
DX,AL 

7RESTORE PREVIOUS INTERRUPT STATUS 


, 
7 ASYNCHRONOUS I/0 INTERRUPT HANDLER 


IOSRVC: 

PUSH 
PUSH 
PUSH 
MOV 
IN 
JMP 
CMP 
JZ 


, 
7 INPUT CREAD) INTERRUPT HANDLER 


7 
RCINTR: 


AX 7 SAVE REGISTERS 

BX 

DX 

DX,ACEIIR ;POINT TO INTERRUPT ID REGISTER 

AL,DX 7READ CURRENT INTERRUPT STATUS 

$+2 ,DELAY BETWEEN 8250 OPERATIONS 
AL,00000010B 7CHECK IF TRANSMITTER EMPTY INTERRUPT 
TXINTR 7JUMP IF TRANSMITTER INTERRUPT 


,NOTE THAT IF THE TRANSMITTER INTERRUPT 
> IS ACTIVE, READING THE INTERRUPT 
7 IDENTIFICATION REGISTER WILL CLEAR IT 


; 
7READ LINE STATUS TO CLEAR POSSIBLE ERROR FLAGS 
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7 
MOV DX,ACELSR 7POINT TO LINE STATUS REGISTER 
IN AL,DX 7READ TO CLEAR ERROR FLAGS 


JMP $+2 ;DELAY BETWEEN 8250 OPERATIONS 


a 
7READ DATA AND SAVE IT IN INPUT BUFFER IF THERE IS ROOM 
71F NOT, EXIT, DISCARDING CHARACTER 


av 

MOV DX,ACERBR 7POINT TO RECEIVER BUFFER REGISTER 
IN AL,DX . 

JMP $+2 ;DELAY BETWEEN 8250 OPERATIONS 

MOV BL,CICNTI 7GET INPUT BUFFER COUNT 

CMP BL,SZIBUF 7CHECK IF INPUT BUFFER IS FULL 


JAE IOEXIT 7; JUMP CEXIT) IF INPUT BUFFER IS FULL 


7 INPUT BUFFER NOT FULL, SO STORE CHARACTER AT TAIL 
7 INCREMENT TAIL POINTER AND BUFFER COUNT 


a 

INC BYTE PTRCICNT] ;INCREMENT INPUT BUFFER COUNT 

MOV BX, CITAILI 7STORE CHARACTER AT TAIL OF INPUT BUFFER 
MOV CBXJ,AL 

CALL INCIPTR 7 INCREMENT TAIL POINTER WITH WRAPAROUND 
MOV CITAIL1],BX 

JMP IOEXIT 7 JUMP TO END OF SERVICE ROUTINE 


7 
;OUTPUT CWRITE) INTERRUPT HANDLER 


a 
TXINTR: 
MOV AL,COCNT]I 7TEST OUTPUT BUFFER COUNT 
TEST AL,AL 
JZ NODATA 7 JUMP IF NO DATA TO TRANSMIT 
CALL OUTDAT 7SEND DATA TO 8250 ACE 
JMP IOEXIT 7JUMP TO END OF SERVICE ROUTINE 


7IF AN OUTPUT INTERRUPT OCCURS WHEN NO DATA IS AVAILABLE, 

3 WE MUST CLEAR IT CIN THE 8259) TO AVOID AN ENDLESS LOOP. LATER, 
; WHEN A CHARACTER BECOMES AVAILABLE, WE CALL THE OUTPUT ROUTINE 

; OUTDAT TO SEND THE DATA WITHOUT WAITING FOR AN INTERRUPT. 

7 THE OUTPUT ROUTINE MUST ALSO SET THE OUTPUT INTERRUPT EXPECTED 

7 FLAG AFTERWARDS. THIS PROCEDURE OVERCOMES THE PROBLEM OF AN 

7 UNSERVICED OUTPUT INTERRUPT ASSERTING ITSELF REPEATEDLY, 

7 WHILE STILL ENSURING THAT OUTPUT INTERRUPTS ARE RECOGNIZED. 

7;THE PROBLEM IS THAT AN OUTPUT DEVICE MAY REQUEST SERVICE BEFORE 

> THE COMPUTER HAS ANYTHING TO SEND CUNLIKE AN INPUT DEVICE THAT 

7 HAS DATA WHEN IT REQUESTS SERVICE). 

;NOTE THAT THE 8250 TRANSMITTER INTERRUPT IS CLEARED AUTOMATICALLY 
7 BY READING THE INTERRUPT IDENTIFEIEATION REGISTER, SO ONLY THE 

7 8259 LEVEL MUST BE HANDLED IN THIS WAY. 


NODATA: 

MOV BYTE PTR COIEI,0 7D0 NOT EXPECT AN INTERRUPT 
IOEXIT: 

MOV DX,PICO 7;CLEAR 8259 INTERRUPT 

MOV AL,EOI 


OUT DX,AL 
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POP DX 7RESTORE REGISTERS 
POP BX 

POP AX 

IRET 


ZK KIER KRRKK KE RREREREEREEEREEKKAKE 

7ROUTINE: OUTDAT 

7PURPOSE: SEND A CHARACTER TO 8250 ACE FROM THE OUTPUT BUFFER 
7ENTRY: OHEAD CONTAINS THE ADDRESS OF THE CHARACTER TO SEND 
7EXIT: NONE 

,REGISTERS USED: AL,BX,DX,F 

FREER KKK KEKE RKEKKREREREREEEEEEEKK KKK 


OUTDAT: 
MOV BX ,COHEAD] 7GET DATA FROM HEAD OF OUTPUT BUFFER 
MOV AL, CBX] 
MOV DX,ACETHR 7POINT TO TX HOLDING REGISTER 
OUT DX,AL 7SEND DATA TO 8250 ACE 
JMP $+2 ;DELAY BETWEEN 8250 OPERATIONS 
CALL INCOPTR 7 INCREMENT HEAD POINTER WITH WRAPAROUND 
MOV COHEAD],BX 7 SAVE HEAD POINTER 
DEC BYTE PTR COCNT] ;DECREMENT OUTPUT BUFFER COUNT 
MOV BYTE PTR COIE],0OFFH 7 INDICATE OUTPUT INTERRUPT 


> EXPECTED - OIE = FF HEX 
RET 


FRR III KITT IIA EEEEEEEKKEE RR RRKE 

,ROUTINE: INCIPTR 

7PURPOSE: INCREMENT INPUT BUFFER POINTER WITH WRAPAROUND 
7ENTRY: BX = POINTER 

vEXIT: BX = POINTER INCREMENTED WITH WRAPAROUND 
7REGISTERS USED: BX,F 

ZRH KEKE EERE EREREKEEEREEEKKRES 


INCIPTR: 
INC BX 7 INCREMENT POINTER BY 1 
CMP BX,EIBUF 7COMPARE POINTER, END OF BUFFER 
JNE RETINC 7BRANCH IF NOT EQUAL 
MOV BX,OFFSET IBUF ;IF EQUAL, SET POINTER BACK TO BASE 
7 ADDRESS OF BUFFER 
RETINC: 


RET 


RRR 

7ROUTINE: INCOPTR 

7PURPOSE: INCREMENT OUTPUT BUFFER POINTER WITH WRAPAROUND 
vENTRY: BX = POINTER 

7EXIT: BX = POINTER INCREMENTED WITH WRAPAROUND 
7REGISTERS USED: BX,F 

FRR III KIKI II III ITT TITRE REE ERE KE 


INCOPTR: 
INC BX 7 INCREMENT POINTER BY 1 
CMP BX ,EQOBUF 7COMPARE POINTER, END OF BUFFER 
JNE RETONC 7BRANCH IF NOT EQUAL 
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MOV BX,OFFSET OBUF ;IF EQUAL, SET POINTER BACK TO BASE 
7 ADDRESS OF BUFFER 
RETONC: 
RET 


7 
7DATA SECTION 


a 

IHEAD DW ? 7POINTER TO OLDEST CHARACTER IN INPUT 
7 BUFFER (NEXT CHARACTER TO READ) 

ITAIL DW ? 7POINTER TO NEWEST CHARACTER IN INPUT 
; BUFFER (LATEST CHARACTER RECEIVED) 

ICNT DB ? 7NUMBER OF CHARACTERS IN INPUT BUFFER 

OHEAD DW ? 7POINTER TO OLDEST CHARACTER IN OUTPUT 
; BUFFER (NEXT CHARACTER TO SEND) 

OTAIL DW ? 7POINTER TO NEWEST CHARACTER IN OUTPUT 
, BUFFER (LATEST CHARACTER WRITTEN) 

OCNT DB ? 7NUMBER OF CHARACTERS IN OUTPUT BUFFER 

SZIBUF EQU 10 7SIZE OF INPUT BUFFER 

IBUF DW SZIBUF DUP(?) 7 INPUT BUFFER 

EIBUF EQU OFFSET IBUF+SZIBUF ;END OF INPUT BUFFER 

SZOBUF EQU 10 7SIZE OF OUTPUT BUFFER 

OBUF DW SZOBUF DUP(?) ,OUTPUT BUFFER 

EOBUF EQU OFFSET OBUF+SZOBUF ;END OF OUTPUT BUFFER 

OIE DB ? OUTPUT INTERRUPT EXPECTED 


7 (0 = NO INTERRUPT EXPECTED, 
; FF = INTERRUPT EXPECTED) 


SAMPLE EXECUTION: 


eo “Se Ne 


a 


7 CHARACTER EQUATES 


ESCAPE EQU 1BH 7ASCII ESCAPE CHARACTER 

TESTCH EQU "A! 7 TEST CHARACTER = A 

SC9C: 
CALL INIT 7INITIALIZE 8251 PCI, INTERRUPT SYSTEM 
STI 7ENABLE CPU INTERRUPTS 


7 
7SIMPLE EXAMPLE - READ AND ECHO CHARACTERS 
7 UNTIL AN ESC IS RECEIVED 


e 
a 


LOOP: 
CALL INCH 7READ CHARACTER 
PUSH AX 7 SAVE CHARACTER 
CALL OUTCH 7ECHO CHARACTER 
POP AX 7RESTORE CHARACTER 
CMP AL,ESCAPE 71S CHARACTER AN ESCAPE? 
JNE LOOP 7 STAY IN LOOP IF NOT 


’ 

7AN ASYNCHRONOUS EXAMPLE 

7 OUTPUT "A" TO CONSOLE CONTINUOUSLY BUT ALSO LOOK AT 

7 INPUT SIDE, READING AND ECHOING ANY INPUT CHARACTERS. 


ASYNLP: 


DONE: 
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7 
7OUTPUT AN "A" IF OUTPUT IS NOT BUSY 


g 

CALL OUTST 71S OUTPUT BUSY? 
Jc ASYNLP  ,JSUMP IF IT IS 
MOV AL,TESTCH 


CALL OUTCH 7OUTPUT TEST CHARACTER 


7 

7CHECK INPUT PORT 

7ECHO CHARACTER IF ONE IS AVAILABLE 
7EXIT ON ESCAPE CHARACTER 


7 : 

CALL INST 71S INPUT DATA AVAILABLE? 

JNC ASYNLP ;JUMP IF NOT (SEND ANOTHER "A") 
CALL INCH 7GET CHARACTER 

CMP AL,ESCAPE 71S IT AN ESCAPE? 

JE DONE | 7BRANCH IF IT IS 

CALL OUTCH 7ELSE ECHO CHARACTER 

JMP ASYNLP 7AND CONTINUE 

JMP SCc9C 7REPEAT TEST 


END 
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9D Real-time clock and calendar 


(CLOCK) 


Maintains a time-of-day 24-hour clock and a calendar based on a real- 
time clock interrupt generated from an 8253 Programmable Interval 
Timer (PIT). Consists of the following subroutines: 


1. CLOCK returns the base address of the clock variables. 


2. ICLK initializes the interrupt system, timer chip, and clock 
variables. 


3. CLKINT updates the clock after each interrupt (assumed to be 
spaced one tick apart). 


Procedure 


1. CLOCK loads the base address of the clock variables into register 
BX. The variables are stored in the following order: ticks, seconds, 
minutes, hours, days, months, less significant byte of year, and more 
significant byte of year. 


2. ICLK initializes the interrupt vector and controller, the 8253 PTM, 
and the clock variables. The arbitrary starting time is 00:00.00 (12 a.m.) 
1 January 1980. A real application would obviously require outside 
intervention to load or change the clock. 


3. CLKINT decrements the remaining tick count by 1 and updates the 
other clock variables if necessary. Of course, seconds and minutes are 
always less than 60 and hours are always less than 24. The day of the 
month must be less than or equal to the last day for the current month; 
an array of the last days of each month begins at address LASTDY. 

If the month is February, the program checks if the current year is a 
leap year. This involves determining whether the two least significant 
bits of memory location YEAR are both Os. If the current year is a leap 
year, February has 29 days instead of the usual 28. 

If the new month number exceeds 12 (December), a carry to the year 
number is necessary. The program must reinitialize the variables 
properly when carries occur; i.e. TICK to DTICK; seconds, minutes, 
and hours to 0; day and month to 1 (meaning the first day and January, 
respectively). 
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Entry conditions 
1. CLOCK: none 
2. ICLK: none 

3. CLKINT: none 


Exit conditions 

1. CLOCK: base address of clock variables in register BX 
2. ICLK: none 

3. CLKINT: none 


Examples 


These examples assume that the tick rate is DTICK Hz (less than 256 Hz 
— typical values would be 60 Hz or 100 Hz) and that the clock and 
calendar are saved in memory locations 


TICK number of ticks remaining before a carry occurs, counted 
down from DTICK 

SEC seconds (0 to 59) 

MIN minutes (0 to 59) 

HOUR hour of day (0 to 23) 

DAY day of month (1 to 28, 29, 30, or 31, depending on month) 

MONTH _ month of year (1 through 12 for January through 
December) 

YEAR and 


YEAR+1 — current year 


1. Starting values are 7 March 1987, 11:59.59 p.m. and 1 tick left. That 
is: 


(TICK) =1 

(SEC) = 59 

(MIN) = 59 

(HOUR) = 23 

(DAY) = 07 

(MONTH) = 03 

(YEAR and YEAR +1) = 1987 
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Result (after the tick): 8 March 1987, 12:00.00 a.m. and DTICK ticks. 
That 1s: 


(TICK) = DTICK 

(SEC) =0 

(MIN) = 0 

(HOUR) = 0 

(DAY) = 08 

(MONTH) = 03 

(YEAR and YEAR+1) = 1987 


2. Starting values are 31 December 1987, 11:59.59 p.m. and 1 tick left. 
That is: 


(TICK) =1 

(SEC) = 59 

(MIN) = 59 

(HOUR) = 23 

(DAY) = 31 

(MONTH) = 12 

(YEAR and YEAR+1) = 1987 


Result (after the tick): 1 January 1988, 12:00.00 a.m. and DTICK 
ticks. That is: 


(TICK) = DTICK 

(SEC) =0 

(MIN) = 0 

(HOUR) = 0 

(DAY) =1 

(MONTH) = 1 

(YEAR and YEAR+1) = 1988 


Registers used 

1. CLOCK: BX 

2. ICLK: AX, BX, DX 
3. CLKINT: none 


Execution time 
1. CLOCK: 12 cycles 


Tr) 


we Ne Ne Ns Ne Ne Ne Be Vs Ne We Ns We Ns We Ne We Ne Ne Ne Be Ns Ve Ne Ns Ns We Ns Ne Ns Ne We Ns Ne Ns Ns Ne 
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2. ICLK: 269 cycles 


3. CLKINT: 


157 cycles if only TICK must be decremented, 518 cycles 
maximum if changing to a new year. These include the 8086’s interrupt 


response time (51 cycles). 


Program size 230 bytes 


Data memory required 8 bytes anywhere in RAM for the clock 


variables (starting at address CLK VAR) 


Title 
Name: 


Purpose: 


Entry: 


Exit: 


Registers Used: 


Time: 


Size: 


Real time clock and calendar 
CLOCK 


This program maintains a time of day 24 hour 
clock and a calendar based on a real time clock 
interrupt from an 8253 programmable timer. 


CLOCK 

Returns base address of clock variables 
ICLK 

Initializes 8253 timer and clock interrupt 


CLOCK 
None 

ICLK 
None 


CLOCK 

Register BX = Base address of time variables 
ICLK 

None 


CLOCK 
BX 
ICLK 
AX ,BX,DX 


CLOCK 
12 cycles 

ICLK 
269 cycles 

CLKINT 
If decrementing tick only, 157 cycles 
Maximum if changing to a new year, 518 
cycles 
These include the 8086's interrupt response 
time (51 cycles). 


Program 230 bytes 
Data 8 bytes 
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7 

a 

7ESTABLISH SEGMENT ADDRESS FOR USE IN INTERRUPT VECTOR 

7 

CSEG EQU OF81H 7ARBITRARY BASE ADORESS OF CODE SEGMENT 
7USUALLY ESTABLISHED IN A SEGMENT 
7 DIRECTIVE NOT SHOWN HERE 


7 
7MONTH EQUATES 


a 
JAN EQU 1 7 JANUARY 
FEB EQU 2 7 FEBRUARY 


DEC EQU 12 ; DECEMBER 

; INTERRUPT VECTOR 

CLKIV EQU 0020H 7REAL-TIME CLOCK INTERRUPT VECTOR 
38253 PROGRAMMABLE INTERVAL TIMER (PIT) 


a 

,INITIALIZE COUNTER O OF 8253 PIT AS 100 HZ SQUARE WAVE 

7 GENERATOR FOR USE IN TIME-OF-DAY CLOCK. 

7 SQUARE WAVE IS GENERATED FROM PIN 10 OF THE 8253, WHICH IS 

7 CONNECTED TO PIN 21 OF AN 8259 PROGRAMMABLE INTERRUPT 

7 CONTROLLER (PIC) 

7 THE CLOCK INTERRUPT IS THUS TIED TO INTERRUPT VECTOR 

7WE ASSUME A 4.77 MHZ CLOCK (STANDARD IBM PC VALUE) INTO PIN 18 
7 OF THE 8253, SO THAT A COUNTER VALUE OF 4,770,000/100 = 47,700 
7 IS NEEDED TO GENERATE A 100 HZ SQUARE WAVE 


zARBITRARY PORT ADDRESSES FOR 8253 PIT 


PITO EQU 40H 78253 COUNTER 0 


PIT1 EQU 41H 78253 COUNTER 1 
PIT2 EQU 42H 78253 COUNTER 2 
PITMDE EQU 43H 78253 CONTROL WORD REGISTER 


78253 PIT MODE BYTE, COUNTER VALUE 
PITCTRL EQU 001101108 ,BIT O = O (BINARY MODE) 
7BITS 3..1 = 011 (MODE 3 - SQUARE WAVE 
7 GENERATOR) 
,BITS 5,4 = 11 CLOAD 2 BYTES TO COUNTER) 
,BITS 7,6 = 00 (PROGRAM COUNTER 0) 
PITCNT EQU 47700 7COUNTER VALUE = 47700 


7 
;DEFAULT TICK VALUE (100 HZ REAL-TIME CLOCK) 


a 
DTICK EQU 100 ,DEFAULT TICK VALUE 


a 

78259 PROGRAMMABLE INTERRUPT CONTROLLER (PIC) EQUATES 
7 8259 PIC IS PROGRAMMED FOR 

7 SINGLE DEVICE CRATHER THAN MULTIPLE 8259'S) 

7 FULLY NESTED MODE 

7 ALL INTERRUPTS ENABLED 
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> INTERRUPT LEVELS 8-15 

;ARBITRARY 8259 PIC PORT ADDRESSES 

PICO EQU 20H 7;PIC PORT 1 
PIC1 EQU 21H ;PIC PORT 2 


38259 INITIALIZATION COMMAND BYTES ICW1, ICW2, AND ICW4 (NO ICW3 
3 NEEDED IN SINGLE 8259 SYSTEMS) 
Icw1 EQU 00010011B ;BIT 9 = 1 CICW4 NEEDED IN 8086 SYSTEMS) 
;BIT 1 = 1 (SINGLE 8259) 
;BIT 2 = 0 (NOT USED WITH 8086/8088) 
;BIT 3 O (EDGE DETECT) 
;BIT 4 = 1 CFIXED) 
;BITS 5,6,7 = 000 (NOT USED IN 8086/88) 
ICW2 EQU 000010008 ;BITS 7-3 = 00001 (5 MSB'S OF SOURCE 
3 IDENTIFICATION CODE) 
;BITS 2-0 = 000 (NOT USED) 
ICW4 EQU 000010018 ;BIT O = 1 (8086/88 SYSTEM) 
;BIT 1 = O (NO AUTOMATIC END OF 
7 INTERRUPT) 
;BIT 2 = O (DON'T CARE) 
7BIT 3 1 (BUFFERED DATA BUS) 
;BIT 4 = O (NO CASCADING) 
;BITS 7-5 = 000 (NOT USED) 


78259 OPERATING COMMAND BYTE 
EOI EQU 001000008 7END OF INTERRUPT COMMAND BYTE 


wv 
;RETURN BASE ADDRESS OF CLOCK VARIABLES 
CLOCK: 
MOV BX,CLKVAR ;GET BASE ADDRESS OF CLOCK VARIABLES 
RET 
a7 
;INITIALIZE 8253 PIT COUNTER AS A CLOCK INTERRUPT 
7 
ICLK: 
PUSHF ;SAVE CURRENT INTERRUPT FLAG 
CLI ;DISABLE INTERRUPTS DURING 
> INITIALIZATION 


, 
;INITIALIZE INTERRUPT VECTOR 


a 
PUSH DS ;SAVE CURRENT DATA SEGMENT 
SUB AX ,AX ;ACCESS INTERRUPT VECTOR IN SEGMENT 
; 0 
MOV DS ,AX 
MOV AX,OFFSET CLKINT ;GET OFFSET FOR SERVICE ROUTINE 
MOV BX,CLKIV ;GET INTERRUPT VECTOR LOCATION 
MOV CBX] ,AX ;LOAD OFFSET INTO INTERRUPT VECTOR 
MOV AX,CSEG ;GET CODE SEGMENT NUMBER 
MOV CBX+2],AX ;LOAD CODE SEGMENT NUMBER INTO 
7 INTERRUPT VECTOR 
POP DS ;RESTORE CURRENT DATA SEGMENT 


pINITIALIZE 8259 INTERRUPT CONTROLLER 


3/3 


3/6 Assembly language subroutines for the 8086 


7 

MOV DX ,PICO 7SEND FIRST COMMAND BYTE TO PIC PORT O 
MOV AL,ICW1 

OUT DX,AL 

MOV DX,PIC1 7 SEND SECOND COMMAND BYTE TO PIC PORT 1 
MOV AL,ICW2 

OUT DX,AL 

MOV AL,ICW4 7SEND FINAL COMMAND BYTE TO PIC PORT 1 
OUT DX,AL 


, 
,INITIALIZE 8253 PROGRAMMABLE INTERVAL TIMER 


MOV DX,PITMDE 7OUTPUT CONTROL BYTE 

MOV AL,PITCTRL 

OUT DX,AL 

MOV DX,PITO 

MOV AX,PITCNT ,OUTPUT INITIAL COUNT IN 2 BYTES 
OUT DX,AL 

MOV AL,AH 

OUT DX,AL 


,INITIALIZE CLOCK VARIABLES TO ARBITRARY VALUE 
7JANUARY 1, 1980 00:00.00 (12 A.M.) 

7A REAL CLOCK WOULD NEED OUTSIDE INTERVENTION 
7 TO SET OR CHANGE VALUES 


a 

MOV BYTE PTR CTICK],DTICK 7 INITIALIZE TICKS 
SUB AX ,AX 

MOV BYTE PTR CSEC],AL ;SECOND = 0 

MOV BYTE PTR CMIN],AL ;MINUTE = 0 

MOV BYTE PTR CHOURI],AL ;HOUR = 0 

INC AX 7AX = 1 

MOV BYTE PTR CDAYJ,AL ;DAY = 1 (FIRST) 

MOV BYTE PTR CMONTH],AL ;MONTH (JANUARY) 

MOV AX,1980 7YEAR = 1980 

MOV WORD PTR CYEAR],AX 

POPF 7RESTORE PREVIOUS INTERRUPT FLAG 
RET 


,REAL-TIME CLOCK INTERRUPT HANDLER 
CLKINT: 


, 
zSUBTRACT 1 FROM TICK COUNT, CARRY IF IT REACHES ZERO 


a 

PUSH AX 7 SAVE REGISTERS 

PUSH BX 

PUSH DX 

DEC BYTE PTR CTICK] ;SUBTRACT 1 FROM TICK COUNT 
JNZ EXITCL 7JUMP IF TICK COUNT NOT ZERO 


MOV BYTE PTR CTICK],DTICK 7SET TICK COUNT BACK TO DEFAULT 


7ADD 1 TO SECONDS, CARRY IF IT REACHES 60 


a 


INCMTH: 


9D Real-time clock and calendar (CLOCK) 


INC BYTE PTR CSEC] ;INCREMENT TO NEXT SECOND 
MOV AL,CSECI ;SECONDS = 60? 

CMP AL,60 

JB EXITCL ;EXIT IF BELOW 60 SECONDS 
MOV CSEC],0 ;ELSE SECONDS = 0 


, 
;ADD 1 TO MINUTES, CARRY IF IT REACHES 60 


a 

INC BYTE PTR CMIN] ; INCREMENT TO NEXT MINUTE 
MOV AL,CMIN] ;MINUTES = 60? 

CMP AL,60 

JB EXITCL ;EXIT IF BELOW 60 MINUTES 
MOV CMINI],0 ;ELSE MINUTES = 0 


7 
3ADD 1 TO HOURS, CARRY IF IT REACHES 24 


a 

INC BYTE PTR CHOUR] ; INCREMENT TO NEXT HOUR 
MOV AL,CHOUR] ;HOURS = 24? 

CMP AL,24 

JB EXITCL ;EXIT IF BELOW 24 HOURS 


MOV CHOURI,0 7ELSE HOURS = O 


a 
;ADD 1 TO DAY, CARRY IF IT REACHES END OF MONTH 


a 

MOV AL,CDAYI 7GET DAY 

INC BYTE PTR CDAY] ;INCREMENT TO NEXT DAY 

SUB BH,BH ;MAKE MONTH INTO 16-BIT INDEX 

MOV BL,CMONTHI 

CMP AL,CBX+OFFSET LASTDY-1] ;IS CURRENT DAY END OF MONTH? 


JB EXITCL 7EXIT IF NOT AT END OF MONTH 


a 
;DETERMINE IF THIS IS END OF FEBRUARY IN A LEAP 
3 YEAR CYEAR DIVISIBLE BY 4) 


XCHG AL,BL 7GET MONTH 

CMP AL,FEB 71S THIS FEBRUARY? 

JNE INCMTH ; JUMP IF NOT, INCREMENT MONTH 
MOV AX, CYEAR] 71S IT A LEAP YEAR? 

AND AL,00000011B 

JNZ INCMTH 7 JUMP IF NOT 


’ 
; FEBRUARY OF A LEAP YEAR HAS 29 DAYS, NOT 28 DAYS 


av 
CMP BL,29 
JB EXITCL 7;EXIT IF NOT 1ST OF MARCH 


;ADD 1 TO MONTH, CARRY IF IT REACHES 13 


7 


MOV BYTE PTR CDAY]I,1 ;DAY = 1 

MOV AL,CMONTHI 7GET OLD MONTH 

INC BYTE PTR CMONTH] 7 INCREMENT MONTH 

CMP AL,DEC 7WAS OLD MONTH DECEMBER? 

JB EXITCL 7EXIT IF NOT 

MOV BYTE PTR CMONTH],JAN ;ELSE CHANGE MONTH TO JANUARY 


INC WORD PTR CYEAR] 7AND INCREMENT YEAR 


377 


378 


EXITCL: 
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MOV 
MOV 
OUT 
POP 
POP 
POP 
iRET 


DX,PICO 7CLEAR 8259 INTERRUPT 
AL,EOI 

DX,AL 

DX 7RESTORE REGISTERS 

BX 

AX 


zARRAY OF LAST DAYS OF EACH MONTH 


LASTDY 


7CLOCK VARIABLES 


TICK 
CLKVAR 
SEC 
MIN 
HOUR 
DAY 
MONTH 
YEAR 


DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 


DB 
EQU 
DB 
DB 
DB 
DB 
DB 
DW 


31 7 JANUARY 

28 7; FEBRUARY CEXCEPT LEAP YEARS) 
31 ;MARCH 

31 7; MAY 

30 7 JUNE 

31 ;JULY 

31 ; AUGUST 

30 7; SEPTEMBER 

31 7;OCTOBER 

30 ;NOVEMBER 

31 7, DECEMBER 

? 7T'TICKS LEFT IN CURRENT SECOND 
OFFSET TICK 

? ;SECONDS 

? ;MINUTES 

? ; HOURS 

? 7DAY (1 TO NUMBER OF DAYS IN A MONTH) 
? 7MONTH 1=JANUARY .. 12=DECEMBER 
9 


7 YEAR 


SAMPLE EXECUTION 


7CLOCK VARIABLE INDEXES 


TCKIDX 
SEC IDX 
MINIDX 
HRIDX 
DAYIDX 
MTHIDX 
YRIDX 


SC9D: 


EQU 0 7 INDEX TO TICK 

EQU 1 7 INDEX TO SECOND 

EQU 2 7 INDEX TO MINUTE 

EQU 3 7 INDEX TO HOUR 

EQU 4 7 INDEX TO DAY 

EQU > 7 INDEX TO MONTH 

EQU 6 7 INDEX TO YEAR 

CALL ICLK 7 INITIALIZE CLOCK 

,INITIALIZE CLOCK TO 2/7/87 14:00:00 (2 PM, FEB. 7, 1987) 
CALL CLOCK 7BX = ADDRESS OF CLOCK VARIABLES 
SUB AL,AL 

MOV CBX+SECIDX],AL ;SECONDS = 0 

MOV CBX+MINIDX],AL ;MINUTES = 0 

MOV BYTE PTR CBX+HRIDXI1,14 ;HOUR = 14 (2 PM) 

MOV BYTE PTR CBX+DAYIDX],7 ;DAY = 7 

MOV BYTE PTR CBX+MTHIDX],FEB ;MONTH = FEBRUARY (2) 


WAITYR: 


WITIM: 


WTUNIT: 


7 
7 TARGET 


a 
TYEAR 
NTUNIT 
TARGET 


9D Real-time clock and calendar (CLOCK) 3/9 


MOV WORD PTR CBX+YRIDX1,1986 7YEAR = 1986 

; 

;WAIT FOR CLOCK TO BE 2/7/87 14:01:20 (2:01.20 PM, FEB. 7, 1987) 
7 

;NOTE: MUST BE CAREFUL TO EXIT IF CLOCK IS ACCIDENTALLY 

; SET AHEAD. IF WE CHECK ONLY FOR EQUALITY, WE MIGHT NEVER 

> FIND IT. THUS WE HAVE >= IN TESTS BELOW, NOT JUST =. 


;WAIT FOR YEAR >= TARGET YEAR 


CALL CLOCK ;BX = BASE ADDRESS OF CLOCK VARIABLES 
MOV AX,TYEAR 7AX = YEAR TO WAIT FOR 

;COMPARE CURRENT YEAR AND TARGET YEAR 

CMP AX, CBX+YRIDX]J 

JB WAITYR 7BRANCH IF YEAR NOT >= TARGET YEAR 


7 
;WAIT FOR REST OF TIME UNITS TO BE GREATER THAN OR EQUAL 
7 10 TARGET VALUES 


. 
7 


MOV AL,NTUNIT ;GET NUMBER OF UNITS TO TEST (TICKS 
; NOT INCLUDED) 

SUB AH,AH ;EXTEND NUMBER OF UNITS TO 16 BITS 

MOV S1,AX 7 SAVE INDEX OF LAST TIME UNIT 

MOV DI,OFFSET TARGET 7POINT TO LAST TARGET UNIT 

ADD DI,AX 


, 
;CHECK UNITS CONSECUTIVELY, MOVING FROM LONGEST TO SHORTEST 


7 


MOV AL,CBX+S1] 7GET TIME UNIT 

CMP AL, COI] 7 COMPARE IT TO TARGET UNIT 

JL WTUNIT 7WAIT UNTIL TARGET MET OR EXCEEDED 
DEC DI 7POINT TO NEXT TARGET UNIT 

DEC SI 7POINT TO NEXT TIME UNIT 

JNZ WIUNIT ;LOOP UNTIL ALL TARGETS MET 

JMP SC9D 7 THEN REPEAT TEST 


TIME - 2/7/87, 14:01:20 (2:01.20 PM, FEB. 7, 1987) 


DW 1987 7 TARGET YEAR 
DB 5 ;NUMBER OF TIME UNITS IN COMPARISON 
DB 0,20,1,14,7,2 ; TARGET TIME (SEC,MIN,HR,DAY,MONTH) 


7STARTS WITH TICKS CALWAYS ZERO) 


END 
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DATA REGISTERS 


AX 
BX 
CX 
DX 


POINTER AND INDEX REGISTERS 


15 0 
SP 
BP 
Sl 
DI 


SEGMENT REGISTERS 


anh 


5 


oO 


CS 
DS 
SS 
ES 


INSTRUCTION POINTER AND FLAGS 


PT 
STATUS WORD 
OR FLAGS 


Figure A-1 8086 register structure 
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STACK POINTER 
BASE POINTER 
SOURCE INDEX 
DESTINATION INDEX 


CODE 
DATA 
STACK 
EXTRA 


INSTRUCTION 
POINTER 
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STATUS FLAGS: 
CARRY ————— ez 0 

PARITY 

AUXILIARY CARRY 

ZERO 

SIGN 

OVERFLOW 


srarus woro: [OL Lore DD ED 


CONTROL FLAGS: 
TRAP FLAG 
INTERRUPT ENABLE 
DIRECTION FLAG 











INTEL RESERVED 
Figure A-2 8086 flag (F or FL) register 


Table A-1 contains a summary of the 8086/8088 instruction set. It also 
contains timings for responses to external signals such as interrupts, 
single-step mode, and reset. The instruction execution times assume an 
8086 processor that transfers all words from even addresses. On an 
8086, each word-length transfer from an odd address takes four extra 
cycles. On an 8088, each word-length transfer takes four extra cycles. 
Where two execution times are given for conditional branches, the first 
value applies when a branch is taken, the second when it is not taken. 
The shorthand for flag settings 1s: 


0,1 Specific values 

N or (blank) Not affected, N serves only as a place holder to improve 
readability 

R Restored from previously saved value 

U Undefined 

x Affected according to the result 

Other shorthand 1s: 

EA Effective address 

n Number of times TEST input is checked 

NA Not applicable 

rep Repetition 


Table A-2 shows how many extra clock cycles are needed to calculate 
the effective address in the various addressing modes. 
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Table A-1 8086/8088 instruction set summary~ 
Clock Number Flags 
Mnemonic Description Cycles of bytes ODITSZAPC 
AAA ASCII adjust for addition 4 1 UNNNUU XU X 
AAD ASCII adjust for division 60 2 UNNNXXUXU 
AAM ASCII adjust for multiplication 83 1 UNNNXXUXU 
AAS ASCII adjust for subtraction 4 1 UNNNUU XU X 
ADC Add with carry X NNN X X X X X 
Immediate to accumulator 4 2-3 
Immediate to memory 17+EA 3-6 
Immediate to register 4 3-4 
Memory to register 9+EA 2-4 
Register to memory 16+EA 2-4 
Register to register 3 2 
ADD Add X NNN XX X X X 
Immediate to accumulator 4 2-3 
Immediate to memory 17+EA 3-6 
Immediate to register 4 3-4 
Memory to register 9+EA 2-4 
Register to memory 16+EA 2-4 
Register to register 3 2 
AND Logical AND ONNNXXU X O 
Immediate with accumulator 4 2-3 
Immediate with memory 17+EA 3-6 
Immediate with register 4 3-4 
Memory with register 9+EA 2-4 
Register with memory 16+EA 2-4 
Register with register 3 2 
CALL Jump to subroutine 
Intersegment direct 28 5 
Intersegment indirect 37+EA 2-4 
Intrasegment direct 19 3 
Intrasegment register indirect 16 2 
Intrasegment memory indirect 21+EA 2-4 
CBW Convert (extend) byte to word 2 1 
CLC Clear carry 2 1 NNNNNNNN O 
CLD Clear direction flag (set 2 1 NONNNNNAWNN 
autoincrementing) 
CLI Clear interrupt enable flag 2 1 NNONNNNWNN 
(disable interrupts) 
CMC Complement carry 2 1 NNNNNNNAWN X 
CMP Compare X NNN X X X X X 
Immediate to accumulator 4 2-3 
Immediate to memory 17+EA 3-6 
Immediate to register 4 3-4 
Memory to register 9+EA 2-4 
Register to memory 16+EA 2-4 
Register to register 3 2 
CMPS/ Compare string 1 X NN NX X X X X 
CMPSB Compare byte string 
CMPSW Compare word string 
Not repeated 22 
Repeated 9+22/rep 
CWD Convert (extend) word to 5 1 


DAA 
DAS 
DEC 


DIV 


ESC 


HLT 
IDIV 


IMUL 


INTO 


INTR 
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double word 
Decimal adjust for addition 4 
Decimal adjust for subtraction 4 
Decrement by 1 


8-bit register 3 
Memory 15+EA 
16-bit register 2 


Unsigned divide 


8-bit memory (86-96)+EA 
8-bit register 80-90 
16-bit memory (150-168)+EA 
16-bit register 144-162 


Escape (coprocessor instruction) 


Memory 8+EA 
Register 2 
Halt 2 


Integer divide 


8-bit memory (107-118)+EA 
8-bit register 101-112 
16-bit memory (171-190)+EA 
16-bit register 165-184 


Integer multiply 


8-bit memory (86-104)+EA 


8-bit register 80-98 

16-bit memory (134-160)+EA 

16-bit register 128-154 
Input 

Fixed port address 10 

Variable port address 8 
Increment by 1 

8-bit register 3 

Memory 15+EA 

16-bit register 2 
Software interrupt (trap) 

Type not 3 51 

Type 3 52 
Interrupt if overflow 

Interrupt not taken 4 

Interrupt taken 53 
External maskable interrupt 61 
Return from interrupt 24 
Jump if above 16/4 
Jump if above or equal 16/4 
Jump if below 16/4 
Jump if below or equal 16/4 
Jump if carry 16/4 
Jump if CX is zero 16/4 
Jump if equal 16/4 
Jump if greater 16/4 
Jump if greater or equal 16/4 
Jump if less 16/4 
Jump if less or equal 16/4 
Jump 

Intersegment direct 15 

Intersegment indirect 24+EA 


Intrasegment direct 15 


> 


NNN NN MM MYDD = ZZ 


Wry ui 
' 
_ 


Cc 


~< 
~< 
~< 


o< 


=< 


o< 
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Intrasegment direct short 15 
Intrasegment memory indirect 18+EA 


rm Mh 
t 
_ 


Intrasegment register indirect 11 2 
JNA Jump if not above 16/4 2 
JNAE Jump if not above or equal 16/4 2 
JNB Jump if not below 16/4 2 
JNBE Jump if not below or equal 16/4 2 
JNC Jump if not carry 16/4 2 
JNE Jump if not equal 16/4 2 
JNG Jump if not greater 16/4 2 
JNGE Jump if not greater or equal 16/4 2 
JNL Jump if not less 16/4 2 
JNLE Jump if not less or equal 16/4 2 
JNO Jump if no overflow 16/4 2 
JNP Jump if parity odd 16/4 2 
JNS Jump if not sign 16/4 2 
JNZ Jump if not zero 16/4 2 
JO Jump if overflow 16/4 2 
JP Jump if parity even 16/4 2 
JPE Jump if parity even 16/4 2 
JPO Jump if parity odd 16/4 2 
JS Jump if sign 16/4 2 
JZ Jump if zero 16/4 2 
LAHF Load AH from flags 4 1 
LDS Load pointer using DS 16+EA 2-4 
LEA Load effective address 2+EA 2-4 
LES Load pointer using ES 16+EA 2-4 
LOCK Lock bus 2 1 
LODS/ Load string 1 
LODSB/ Load byte string 
LODSW Load word string 
Not repeated 12 
Repeated 9+13/rep 
LOOP Loop 17/5 2 
LOOPE Loop if equal 18/6 2 
LOOPNE Loop if not equal 19/5 2 
LOOPNZ Loop if not zero 19/5 2 
LOOPZ Loop if zero 18/6 2 
MOV Move 
Accumulator to memory . 10 3 
Immediate to memory 10+EA 3-6 
Immediate to register 4 2-3 
Memory to accumulator 10 3 
Memory to register 8+EA 2-4 
Memory to segment register 8+EA 2-4 
Register to memory 9+EA 2-4 
Register to register 2 2 
Register to segment register 2 2 
Segment register to memory 9+EA 2-4 
Segment register to register 2 2 
MOVS/ Move string 1 
MOVSB/ Move byte string 
MOVSW Move word string 
Not repeated 18 
Repeated 9+17/rep 


MUL Unsigned multiply X NNNU UU U X 


386 


NMI 
NOP 
NOT 


OUT 


POP 


POPF 
PUSH 


PUSHF 
RCL 


RCR 


REP 
REPE 


REPNE 
REPNZ 
REPZ 

RESET 


RET 
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8-bit memory (76-83)+EA 2-4 
8-bit register 70-77 2 
16-bit memory (124-139)+EA 2-4 
16-bit register 118-133 2 
Negate X NNN X X X X X 
Memory 16+EA 2-4 
Register 3 2 
External nonmaskable interrupt 50 NA NNOONNNNN 
No operation 3 1 
Logical NOT 
Memory 16+EA 2-4 
Register 3 2 
Logical OR ONNNXXUXQ 
Immediate with accumulator 4 2-3 
Immediate with memory 17+EA 3-6 
Immediate with register 4 3-4 
Memory with register 9+EA 2-4 
Register with memory 16+EA 2-4 
Register with register 3 2 
Output 
Fixed port address 10 2 
Variable port address 1 
Load word from stack 
Memory 17+EA 2-4 
Register 8 1 
Load flags from stack 8 1 RRRRRRRRR 
Store word on stack 
Memory 16+EA 2-4 
Register 11 1 
Segment register 10 1 
Store flags on stack 10 1 
Rotate left through carry X NNNNNNWN X 
Memory with single-shift 15+EA 2-4 
Memory with variable-shift 2O+EA+4/bit 2-4 
Register with single-shift 2 2 
Register with variable-shift 8+4/bit 2 
Rotate right through carry X NNNNNNWN X 
Memory with single-shift 15+EA 2-4 
Memory with variable-shift 20+EA+4/bit 2-4 
Register with single-shift 2 2 
Register with variable-shift 8+4/bit 2 
Repeat string operation 2 1 
Repeat string operation while 2 1 
equal 
Repeat string operation while 2 1 
not equal 
Repeat string operation while 2 1 
not zero 
Repeat string operation while 2 1 
zero 
External Reset signal 10 NA NNOONNNNWN 
(starting at least 50 microseconds after power-up) 
Return from subroutine 
Intersegment 18 1 
Intersegment with constant 17 3 
Intrasegment 8 1 


ROL 


ROR 


SAHF 
SAL/ 
SHL 


SAR 


SBB 


SCAS/ 
SCASB/ 
SCASW 


SEGMENT 
SHR 


Single 
STC 
STD 


STI 
STOS/ 


STOSB/ 
STOSW 


SUB 


8086 instruction set summary 


Intrasegment with constant 
Rotate left 
Memory with single-shift 
Memory with variable-shift 
Register with single-shift 
Register with variable-shift 
Rotate right 
Memory with single-shift 
Memory with variable-shift 
Register with single-shift 
Register with variable-shift 
Store AH into flags 
Shift arithmetic left 
Shift logical left 
Memory with single-shift 
Memory with variable-shift 
Register with single-shift 
Register with variable-shift 
Shift arithmetic right 
Memory with single-shift 
Memory with variable-shift 
Register with single-shift 
Register with variable-shift 
Subtract with borrow 
Immediate from accumulator 
Immediate from memory 
Immediate from register 
Memory from register 
Register from memory 
Register from register 
Scan string 
Scan byte string 
Scan word string 
Not repeated 
Repeated 
Segment override prefix 
Shift logical right 
Memory with single-shift 
Memory with variable-shift 
Register with single-shift 
Register with variable-shift 
Step (Trap flag interrupt) 
Set carry 
Set direction flag (set 
autodecrementing) 
Set interrupt enable flag 
(enable interrupts) 
Store string 
Store byte string 
Store word string 
Not repeated 
Repeated 
Subtract 
Immediate from accumulator 
Immediate from memory 
Immediate from register 


12 3 
15+EA 2- 
20+EA+4/bit 
2 2 
8+4/bit 2 
15+EA 2- 
20+EA+4/bit 
2 2 
8+4/bit 2 
4 1 
15+EA 2- 
20+EA+4/bit 
2 2 
8+4/bit 2 
15+EA 2- 
20+EA+4/bit 
2 2 
8+4/bit 2 
4 2- 
17+EA 3- 
4 3- 
9+EA 2- 
16+EA 2- 
3 2 
1 
15 
94+15/rep 
2 1 
15+EA 2- 
20+EA+4/bit 
2 2 
8+4/bit 2 
50 NA 
2 1 
2 1 
2 1 
1 
11 
9+10/rep 
4 2- 
17+EA 3- 
4 3- 


4 


4 


4 


4 


4 


Aw 


2-4 


2-4 


2-4 


2-4 


2-4 


> a 


387 


a 


~*~ 


za Zz 


388 


TEST 


WAIT 


XCHG 


XLAT 
XOR 
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Memory from register 9+EA 2-4 
Register from memory 16+EA 2-4 
Register from register 3 2 
Bit test (non-destructive logical AND) 
Immediate with accumulator 4 2-3 
Immediate with memory 17+EA 3-6 
Immediate with register 4 3-4 
Memory with register 9+EA 2-4 
Register with register 3 2 
Wait’ while TEST input high 3+5n 1 


(n is the number of times input is checked) 
Exchange 


Register with accumulator 3 1 
Register with memory 17+EA 2-4 
Register with register 4 2 
Translate (table lookup) 11 1 
Logical exclusive OR 
Immediate with accumulator 4 2-3 
Immediate with memory 17+EA 3-6 
Immediate with register 4 37-4 
Memory with register 9+EA 2-4 
Register with memory 16+EA 2-4 
Register with register 3 2 


*All mnemonics copyright Intel Corporation, Santa Clara, CA. 


Table A-2. Execution times for addressing modes 


Addressing mode Number of 


clock cycles 


Based indexed 
CBP+DI] or CBX+SI] 7 
CBP+SI] or CBX+DI] 8 


Based indexed relative 


DISPCLBP+DI] or DISPCBX+SI] 11 
DISPCLBP+SIJ or DISPCBX+DI] 12 
Direct 6 


Register indirect 5 


Register relative 9 


ONNNX XU XO 


ONNNXXU XO 


Programming 
reference for the 
8255 PPP 





PIN CONFIGURATION 





PIN NAMES 
¥, Oo DATA BUS (BI DIRECTIONAL) 
RESET RESET INPUT 
cs CHIP SELECT 
RD READ INPUT 
WR WRITE INPUT 
AO, Al ORT ADDRESS 
PA7-PAO PORT A (BIT) 
PB7-PBO PORT B ‘BIT) 
PC7-PCO PORT C (BIT) 
voc +5 VOLTS 
GNO » VOLTS 


Figure B-1 8255 pin assignments 
“Reprinted by permission of Intel Corporation, copyright 1985 
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GROUP 
A 
70 
CP KD razr 











——————e  t SY 
POWER 
SUPPLIES 
—_———~» GNO 
Group 


A 
| 


BI-DIRECTIONAL DATA BUS 
DATA 
e700 Ces, KD 


BUFFER 


1/0 
CY P67 =P 


VO 


CEE) ee 
PA7-PBo 


cs 


Figure B-2 
face (PPI) 


PC; PC, = PA, PAy 


A 


{ete TT TT {sbo 
CONTROL PA,-PA, 


/ CONTROL 
87780 OR W/O OR 1/0 


£ A 


B 
1/0 J=[Broinéctionat 
0 “——7————__ PA, PA, 


™ vowmmes 231256-5 





Figure B-3 8255 mode definitions and bus interface 


Programming reference for the 8255 PPI 


CONTROL WORD 


Figure B-4 8255 mode definition format 


CONTROL WORD 





Figure B-5 8255 bit set/reset format 





GROUP 8 


PORT C (LOWER) 
1 = INPUT 
0 = OUTPUT 


PORT B 
1 = INPUT 
0 = OUTPUT 


MODE SELECTION 
0= MODE 0 
1= MODE 1 


GROUP A 


PORT C (UPPER) 
1= INPUT 
0= OUTPUT 


PORTA 
1 = INPUT 
O= OUTPUT 


MODE SELECTION 
00 = MODE 0 
01 = MODE 1 
1X = MODE 2 


MODE SET FLAG 
1= ACTIVE 


231256--6 





BIT SET/RESET 
1=SET 
0= RESET 






BIT SELECT 






BIT SET/RESET FLAG 
0= ACTIVE 
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MODE 1 (PORT A) 










CONTROL WORD 
nim 
| INTE 

Aus 


D, Dg D, Dy Dz Dy D, Dy 


Peds | fob 


PCE 7 


1= INPUT 
0 = OUTPUT 


STB, 


IBF, 


CONTROL WORD 
D, Dg Dg Dy D3 Dz D, Dy 


ht DXDX DX] | DX BO PC, |-———. STB, 


INTR, 


Figure B-6 8255 mode 1 input 


MODE 1 (PORT A) 


CONTROL WORD 
D, Dg Ds Dy Dz Dy Dy Dg 


Lf of + | ojo 


PC, 5 
1 = INPUT 
0 = OUTPUT 


INTR, 


CONTROL WORD 
D, Dg Ds Dy Dz, Dz D, Dy 


UDDDDT 19 Dg 


INTR, 


Figure B-7 8255 mode 1 output 
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CONTROL WORD 


D, Ds Ds Dy Dz, Dy D, 


CT DK TT 





PC29 


1 = INPUT 
0 = OUTPUT 


PORT B 
1 = INPUT 
0 = OUTPUT 


GROUP B MODE 
0 = MODE 0 
1=MODE 1 


Figure B-8 8255 mode 2 control word 





Figure B-9 8255 bidirectional mode (mode 2) 


INPUT CONFIGURATION 


. - ———_t-__--—_,— ———-) 


CL. 


a 
GROUP A GROUP B 





OUTPUT CONFIGURATION 





D, Dg Ds OO 03 0D, DD, Dog 
t SEE Ee te —_— 
GROUP A GROUP B 


Figure B-10 8255 mode 1 status word format 
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D, Do 


reson Prof cD<D 


ee ee ee 


GROUP A = GROUP B 


— 
(DEFINED BY MODE 0 OR MODE 1 SELECTION) 


Figure B-11 8255 mode 2 status word format 


Table B-1_ 8255 PPI operations 


8255A BASIC OPERATION 
A, | Ao | RD | WR | CS | INPUT OPERATION (READ) 
o| o | 


0 | o | 4] PORT A= DATA BUS 
o/ 1 { o 1} 1 | O | PORTB=+DATA BUS 
1 | 0 | oO {| 1 {| O | PORTC=DATA BUS 
OUTPUT OPERATION 
(WRITE) 


| o | 1 | o | o | DATABUS=PORTA 
| 1 | | 0 


| 1 | of DATA BUS = PORT B 
| o | 1 | o | o | DATABUS=PORTC 
| 1 [ 1 { © {| © | DATABUS= CONTROL 


DISABLE FUNCTION 


DATA BUS = 3-STATE 
ILLEGAL CONDITION 


x | x { 1] 1 {[ 0 | DATABUS=+3-STATE 


-|=lolo 


-|x 
oe 
aa 

af 

ee 


Table B-2. 8255 mode 0 port definitions 


a | 8 | croura | GROUP 8 
PORT C PORT C 
pe 08/05 | om | fomre | open | * | PORTE | owen 
0 |o | o | o | oureur | ourrut | 0 OUTPUT 
ojo | o {1 | ourrur | output | 1 INPUT 
o | o [+ [0 | oureur | output | 2 OUTPUT 
o fo} 1 [1 | oureur | outeut | 3 INPUT 
o [1 | o [| o | output | input _ | 4 OUTPUT 
o [1 | o [4 | output | input | 5 INPUT 
o [+ | + | o | oureur | input | 6 OUTPUT 
of 4 ja | 1 | output 7 INPUT 
1 | o [| o | o | input | oureur | 8_ OUTPUT 
1 fo [To {1 [ weur | output | 9 INPUT 
1 | o | + | 1 | tNpuT | OUTPUT | 11 INPUT 
1 | 1 [| 0 [| 0 | INPUT 12 | OUTPUT | OUTPUT 
1 | 4 | INPUT 13 INPUT 
a OUTPUT 
1] 4 7 4 | + | INPUT | INPUT =| 15 | INPUT INPUT 
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Table B-3. Summary of 8255 operating modes 


MODE 0 
OR MODE 1 
ONLY 





C ASCII character set 









nmonepeevelesewne 
>a -—emIN< KX ESE KIC HN RO V 
ee aoe 
a 


° 
0 
rr 
om 





Note On most computers, one can enter a non-printing ASCII charac- 
ter (i.e. those below 20 hex) by pressing the CONTROL (CTRL) key 
and the key corresponding to the character 40 hex higher. For example, 
one can enter an ETX (03) character by pressing CTRL and C (43 hex). 
See Table 8-1 for the equivalences. 
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DATA 


STATUS 


ADDRESS 


8087 instruction set 
summary” 


| CONTROL UNIT “T wumenic EXECUTION UNIT | 
| | EXPONENT FRACTION 
BUS BUS 
EXPONENT PROGRAMMABLE 
| CONTROL WORD | MODULE . SHIFTER 
STATUS WORD 

| | STATUS WORD | | INTERFACE 
| | 16 

NEU INSTRUCTION MICROCODE ARITHMETIC 
| CONTROL MODULE 

| UNIT 
DATA 68 
BUFFER 16 


OPERANDS 
QUEUE 84 
TEMPORARY 

16 REGISTERS 

Ps 

Fs 
rc —«d 
G (4) 

REGISTER STACK 

w (3) 
O 
R 
0 


pO 
po 
es |) 


ADDRESSING & 
BUS TRACKING 
EXCEPTION 
POINTERS 


Le << 80 BITS — _| 


Figure D-1 8086/8087 internal organization 


“Reprinted by permission of Intel Corporation, copyright 1985. 
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15 


7 
pecs] ist, fezfer}oo}m] [re] uel oe] ze] oe] 


0 





EXCEPTION FLAGS (1 = EXCEPTION HAS OCCURRED) 
INVALID OPERATION 


DENORMALIZED OPERAND 
ZERODIVIDE 
OVERFLOW 
UNDERFLOW 
PRECISION 
(RESERVED) 
INTERRUPT REQUEST 
CONDITION CODE() 
STACK TOP POINTER) 
BUSY 


— 


(1) See descriptions of compare, test, examine and remainder instructions in section S.7 for 
condition code interpretation. 


(2) ST values: 
000 = register 0 is stack top 
001 = register 1 is stack top 
e + 


e 
111 = register 7 is stack top 


Figure D-2 Organization of the 8087 status word 


8087 instruction set summary 
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Table D-1 8087 instruction set codes, memory requirements, and 
execution times* 


Data Transfer 


FLD = LOAO 


integer/Rea! Memory to ST(0) 
Long integer Memory to $T(0) 


Temporary Real Memory to 
STi0) 


BCO Memory to ST(0} 


ST(1} to ST(O) 


FST = STORE 
$T:0} to integer'Real Memory 


ST(0) to ST (0) 


FSTP « STORE AND POP 
S$T(0) to integer:Real Memory 


S$T(0) to Long Integer Memory 


ST(0) to Temporary Reat 
Memory 


$T(0) to BCO Memory 


ST(0) to ST() 


FXCH = Exchange STs) and 
ST(0) 


Comparison 
FCOM = Compare 
Integer/Real Memory to ST(0) 


ST(1) to ST (0) 


FCOMP = Compare and Pop 
integer/Rea!t Memory to ST(0) 


ST(i) to STI0) 


FCOMPP = Compare ST(1) to 
ST10) ano Pop Twice 


FYST = Test STO) 


FXAM = Examine ST(0) 


ESCAPE 1 1 1 MoD 1 0 1 


MOO 1 0 1 


MOD 1 0 0 AM 
ESCAPE 001/11 000 STW 


ESCAPE MF 1 MOO 0 1 1 


versace naa uamm a ee on, | 


ESCAPE 0 1 1 | MOO 1 1 1 RM 
. ESCAPE 1 1 1 ! MOD 1 1 


(ESCAPE 1 01:11 


ESCAPE 0 0 1 1 1 00 1 ST() 


|} ESCAPE MF 


(ne es fc Ses 
ESCAPE 000/111 010 STi) 


ESCAPE MF o | MOD 0 1 1 FYM 
ESCAPE 000111 011 ST 


lescaPE 1 10;11 011001 


iescaPpe 0011/1131 11003100 


escape 0 0s | 1 i 1 001 01 


38-56 52-60 
Ps EA EA 
60-68 + EA 
$3-65 +€A 
290-310 + EA 
17-22 


84-90 82-92 96-104 
+€A EA +E€A 


1$-22 


86-92 84-94 96-106 
+EA +EA €4 


94-105 + EA 
52-58 +EA 
520-840 +€EA 


17-24 


10-15 


60-70 78-91 
@EA +EA 


40-50 
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Optional Clock Count Range 







; 816M =| 32 Bit | 2B eee, 18BH 
Constants : Blepiecemeat . Real integer Real integer 






- ' } ' 
z i 60 i ot to! on 


FLD1 » LOAD - 10 into ST(0) | ESCAPE 0 0 1 | 1t 101000 18-21 
FLOPt - LOAD # into ST10) | ESCAPE 0 0 1 | 1110171011 16-22 


FLDLZT ~ LOAD loge? 10 into 
ST(0) 


FLDOLIE. = LOAD Iog2 e@ into ESCAPE 0 0 1 11 710101 0 15-21 
$T(0) 


FLDLG2 - LOAD !ogig 2 into 
$0) 































FLOLN2 - LOAD !o0g,2 into 
STO) 








Arithmetic 
FAOO - Aaaitron 






ESCAPE MF 0 | MOD 0 0 0 AM OISP 5): 90-120 108-143 95-125 102-137 
-_7-— 7c 7 a7 EA 7 EA ao EA EA 







Iinteger:Reai Memory with ST(0) 











ST(1) ano STI0) } ESCAPE 6 PO ;1}1 1 000 STty 70-100 (Note 1) 









FSUB = Sudiraction 













102-137 
EA 





90-120 108-143 95-125 
ys 7 ee EA 7 EA +EA 


STs) ane ST(0) ESCAPE o6 PO/}1110A AM j 70-100 (Note 1) 


Integer/Reai Memory with ST(0) 




















FRMUL = Multiplication 


MOO 0 01 RM ; OtSP § 110-125 130-144 112-168 124-138 
loo EA EA +€A +EA 


ST(1; ana STO) ESCAPE @ P O 171 0 0 1 RiM 90-145 (Note 1) 


FOIV - Division . 
Moo 11 AR RM OISsP : 218-225 230-243 220-230 224-238 
- c:e-e-e EA +EA EA EA 


integer/Real Memory with ST(0) | ESCAPE MF 0 | 
$T(1) and ST(O) ESCAPE cg PO|1111 RAR AM 193-203 (Note 1) 


FSORT = Square Root of ST(0) 





integer: Reali Memory with ST(0) 






















FSCALE +» Scaie ST(0) by ST%1) 





FPREM ~ Partial Remaincger of 
$110) -ST(1) 






FRNOINT = Round ST(0) to 
integer 






NOTE: 
1 if P=1 then add § clocks. 
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Optional Clock Count Range 
6.36 Bit 
Displacement 


FXTRACT © Extrac! 
Components of St(0} 


FABS - Absolute Value of | ESCAPE 0 0 1 
ST(0) 


FCHS - Cnange Sign of ST(0) 


Transcendental 

FPTAN = Partial Tangent of ESCAPE 0 0 1 
ST(0) — 
FPATAN + Partial Arctangent 
of ST(0) - ST(1) 

Faxma = 2547/0), ESCAPE 001] 1 110000 


m 
yw 
oO 
> 
v 
m 
° 
° 
a 


FYL2X = ST(1)° Log 
1ST(0)! 


FYL2XP1 = ST(1)- Loge ESCAPE 0 0 1 
{ST(0) +1} 


Processor Control 
FINIT = inmakzed 8087 


2-8 


FENN © Enavie interrupts ESCAPE 0 1 1 | 2-6 
FOIS! = Oisabdie interrupts ESCAPE 0 1 1 1 1 . 2-8 
FLOCW = Load Contro! Word ; ' 7-14 +EA 
FSTCW = Store Contro! Wora | ESCAPE 0 0 1 : ' 12-18 +EA 
FSTSW «= Store Status Word ESCAPE 1 0 1 12-18 + EA 
FCLEX = Ciear Exceptions 2-8 
FSTENV = Store Environment Moo 1 10 RM 40-50 + EA 
FLDENV =: Load Enwronment ESCAPE 0 0 1 | MOO 1 0 0 RM : 35-45 + EA 


FSAVE = Save State MOOD 110 RAM | 107 ~ 207 + EA 


FRSTOR = Restore State MOO 100 FM 197 — 207 + EA 


FINCSTP = increment Stack 
Portiter 


FOECSTP = Decrement Stack 
Pointer 
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FFREE « Free ST(1) ESCAPE 1 0 1 | 11 0 C0 0 STI 


FNOP = No Operation [escare oor] +1 014 0000] 
rea» ota 





a number of times CPU examines TEST line betore 8087 towers BUSY. 


NOTES: 
1. if mod=00 then DISP =0°, disp-low and disp-high are absent 


it mod =01 then DISP =disp-low sign-extended to 16-bits, disp-high is absent 
if mod = 10 then DISP =disp-high: disp-low 
if mod=11 then r/m is treated as an ST(i) field 


. if c¢m=000 then EA=(BX) + (Si) +DISP 


if r/m=001 then EA=(BX) + (Di) +DISP 
if r/m=010 then EA=(8P) + (Si) +DISP 
if r/m=011 then EA=(BP) + (Di) +DISP 
if r/m=100 then EA=(SI) + DISP 
if r/m=101 then EA=(Dl) + DISP 
if p/m=110 then EA=(BP) + DISP 
if rim=111 then EA=(BX) + DISP 


except if mod =000 and rim=110 then EA = disp-high: disp-low. 


. MF= Memory Format 


00—32-bit Real 
01—32-bit Integer 
10—64-bit Real 
11— 16-bit Integer 


. ST(O)= Current stack top 


STi) i*” register below stack top 


. d= Destination 


0— Destination is ST(0) 
1—Destination is ST(i) 


. P= Pop 


O—No pop 
1—-Pop ST(0) 


. R= Reverse: When d=1 reverse the sense of R 


0—Destination (op) Source 
1—Source (op) Destination 


For FSORT: -0 < ST(0) < += 

For FSCALE: ~2'9 « St(1) < +2"° and ST(1) integer 

For F2XM1: 0«< ST(0)« 2." 

For FYL2X: 0 < ST(0) <= 
-x<STlI1I)< +x 

For FYL2XP1: 0 « IST(O)I < (2 -V/2y/2 
-x<ST(1)<= 

For FPTAN: 0 < ST(0) <2/4 

For FPATAN: 0 < ST(0) < ST(1) < += 


Clock Count Range 


9-16 


10-16 
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*Mnemonics copyright Intel Corporation, Santa Clara, CA. 


